vrurg_yapc_benchmark_01

#!env perl6
use v6;

$*ERR.print("Benchmark ", 'Miltiplier', ": ");
my $stime = now;
my $max_l = 20_000;
say :$max_l.perl;
my @l = 1..$max_l; # Hmmm. 2x here increases runtime by 4x
my $n;
for (^100) { # OK 10x here increases runtime by 10x
    $n = [*] @l;
}
say "Run time: ", now - $stime;