use Benchmark;

my @array = (1..999999);

timethis (200, sub { my $foo; for $foo ( @array ) { 1; } });
timethis (200, sub { for my $foo       ( @array ) { 1; } });

#timethis 200: 33 wallclock secs (31.58 usr +  0.02 sys = 31.60 CPU) @
+  6.33/s (n=200)
#timethis 200: 32 wallclock secs (31.65 usr +  0.04 sys = 31.69 CPU) @
+  6.31/s (n=200)
[download]

seems to be optimized (perl 5.8.6)