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