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

##</code><code>##

my @arr = (1)x100;