perl -MTime::HiRes=time -wE"my $t=time; my @a=1..1e6;say time-$t;
##</code><code>##

perl -MTime::HiRes=time -wE"my $t=time; my @a=map $_,1..1e6;say time-$+t;
##</code><code>##

C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=(1..1e6);say time-$t;"
0.0974979400634766

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

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