my $i = 123; foreach $i (0..3) { ; } print "$i\n"; # 123