# Initialise an array so that $array[n] = n my $n = 0; foreach (@array) {$_ = $n++} #### @array[0..100] = 0..100; # or to mimic the behaviour of your code exactly @array[0..$#array] = 0..$#array;