Perl - 控制结构的实例分析