Help for this page

Select Code to Download


  1. or download this
    while (@array) {
       my $item = shift(@array);
       print "$item\n";
    }
    
  2. or download this
    while (my ($item) = splice(@array, 0, 1)) {
       print "$item\n";
    }