use warnings;
use strict;
use Benchmark 'cmpthese';

cmpthese(-2, {
	predecl => sub {
		my $y;
		my $x;
		for $x (1,2,3) { $y+=$x }
	},
	lexical => sub {
		my $y;
		for my $x (1,2,3) { $y+=$x }
	},
});

__END__

             Rate predecl lexical
predecl 9175035/s      --     -1%
lexical 9275893/s      1%      --