# これまでの私 my $i; foreach $i (...) {...} my $i; for ($i = 0; ...) {...} # これからの私 foreach my $i (...) {...} for (my $i = 0; ...) {...}