Лучший способ перебрать массив Perl

Какая реализация (с точки зрения скорости и использования памяти) является лучшей для перебора массива Perl? Есть ли лучший способ? @Array не нужно хранить).

Реализация 1
<code>foreach (@Array)
{
      SubRoutine($_);
}
</code>
Реализация 2
<code>while($Element=shift(@Array))
{
      SubRoutine($Element);
}
</code>
Реализация 3
<code>while(scalar(@Array) !=0)
{
      $Element=shift(@Array);
      SubRoutine($Element);
}
</code>
Реализация 4
<code>for my $i (0 .. $#Array)
{
      SubRoutine($Array[$i]);
}
</code>
Реализация 5
<code>map { SubRoutine($_) } @Array ;
</code>

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

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