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