cmpthese -1,{
    a=>q[
        my @a = 1 .. 1e3;
        for( my $i = 0; $i < @a; ++$i ){
            for( my$j = 0; $j < @a; ++$j ){ 
                1; 
            } 
        }
    ], 
    b=>q[
        my @a = 1 .. 1e3; 
        my $l = @a; 
        for( my $i = 0; $i < $l; ++$i ){
            for( my $j = 0; $j < $l; ++$j ){ 
                1; 
            } 
        }
    ] 
};;
    Rate    a    b
a 5.81/s   -- -41%
b 9.84/s  69%   --
[0] Perl>