my @indices_vorher = (0..$#array);
for (@indices_vorher) {
}