C:\test>p1
sub x2{ my @a; $a[ $_ ] = $_ for 1 .. 1e6; return \@a };;

print time; $s =  x2(); print time;;
1229112742.05163
1229112742.43096