关于#perl#的问题，请各位专家解答！

有没有能看看这代码哪里有错误，，看不懂代码啥意思，写不出来了