use strict; use warnings; my $x = 5; for (my $i = 0; $i < bar($x); $i++) { print "for loop: $i\n"; } print "----------\n"; for my $j (0 .. bar($x) - 1) { print "foreach loop: $j\n"; } sub bar { my $y = shift; print "bar($y)\n"; return $y; }