perl -MTime::HiRes=time -wE"my $t=time; my @a=map $_,map $_,1..5e5;say time-$t; <>"
7.87800002098084