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

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

Реализация 1

foreach (@Array)
{
      SubRoutine($_);
}

Реализация 2

while($Element=shift(@Array))
{
      SubRoutine($Element);
}

Реализация 3

while(scalar(@Array) !=0)
{
      $Element=shift(@Array);
      SubRoutine($Element);
}

Реализация 4

for my $i (0.. $#Array)
{
      SubRoutine($Array[$i]);
}

Реализация 5

map { SubRoutine($_) } @Array ;