$ cat a.pl
my @a = 1..1_000_000;

$ time perl a.pl

real    0m0.372s
user    0m0.276s
sys     0m0.092s