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__