一个Perl的程序，麻烦帮我看一下哪里有问题。