You can either use a for loop:

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

or the x operator:

my @arr = (1)x100;
[download]