$ time perl6 -e 'say [+] rand xx 1e6'
500004.929191931

real	0m6.028s
user	0m5.592s
sys	0m0.140s

$ time perl -MList::Util=sum -wlE 'say sum map rand, 1..1e6'
499644.144986907

real	0m0.747s
user	0m0.652s
sys	0m0.076s