use Benchmark 'cmpthese';

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

__END__

##</code><code>##

          Rate lexical predecl
lexical 3996/s      --     -0%
predecl 4001/s      0%      --

##</code><code>##

use Benchmark 'cmpthese';

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

##</code><code>##

          Rate predecl lexical
predecl 4011/s      --     -0%
lexical 4015/s      0%      --