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 }
    },
});