@a=1..9e6; 
$#a=9e6; $a[$_-1]=$_ for 1..9e6;