perlにおいて、forとforeachは互いに交換可能である。