Help for this page

Select Code to Download

Select or download this

$ perl -MO=Deparse -e 'while(my $item = <@array>) { print "$item\n" }'
while (defined(my $item = glob(join $", @array))) {
...
        print "$item\n"
    };
}