my @arr;
for (my $i=0; $i<100; $i++) { $arr[$i]=1}