Help for this page

Select Code to Download

Select or download this

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