use strict;
use warnings;

foreach my $foo (1..10 ) { print $foo }
foreach my $foo (1..10 ) { print $foo }
__END__
1234567891012345678910