while (@array) {
   my $item = shift(@array);
   print "$item\n";
}

##</code><code>##

while (my ($item) = splice(@array, 0, 1)) {
   print "$item\n";
}