my @a;
$a[$_] = int(rand (100)) for(0..10000000);