C:\Users\Laurent>perl -E "my $c = 1; my $start = time; while (1) { $c++; last if (2 * $c ) > 50000000 ; }; say time - $start; say $c"
4
25000001

C:\Users\Laurent>perl6 -e "my $c = 1; my $start = time; while (1) { $c++; last if (2 * $c ) > 50000000 ; }; say time - $start; say $c"
21
25000001

C:\Users\Laurent>perl6 -e "my int $c = 1; my $start = time; while (1) { $c++; last if (2 * $c ) > 50000000 ; }; say time - $start; say $c"
9
25000001

##</code><code>##

C:\Users\Laurent>perl6 -e "my int $c = 1; my $start = now; while (1) { $c++; last if (2 * $c ) > 50000000 ; }; say now - $start; say $c"
8.9252329
25000001