For one thing, your code doesn't run

With 5.10:

>perl -le"for my $_ (1..2) { print }"
1
2
[download]