# Initialise an array so that $array[n] = n my $n = 0; foreach (@array) {$_ = $n++}