Perl中的子程序变量问题

Perl中的子程序变量问题