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

##</code><code>##

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

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

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

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

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

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

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

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

##</code><code>##

C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=1..16000e3;say time-$t;"
1.5

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

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