автоматически получить индекс цикла в цикле foreach в Perl

Если у меня есть следующий массив в Perl:

@x = qw(a b c);

и я перебираю это сforeach, тогда$_ будет ссылаться на текущийэлемент в массиве:

foreach (@x) {
    print;
}

напечатает:

abc

Есть ли подобный способ получитьиндекс текущего элемента, не обновляя счетчик вручную? Нечто такое как:

foreach (@x) {
    print $index;
}

где$index обновляется как$_ дать выход:

012

Ответы на вопрос(12)

Ваш ответ на вопрос