C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=map{$_}map{$_}1..1e6;say time-$t;"
12.703125