Perlウィザードはforeachもforと書くのれすか?