my @arr; $_ = 1 for @arr[0..99];