一个perl文件可以包含两个foreach语句吗