Select Code to Download

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

my @arr = (1)x100;