Help for this page
my @tmp; while (my $elem = pop @array) { # or s/pop/shift/ ... } } @array = @tmp;
my $i=0; while ($i < @array) { ... print "discarding $x\n"; } }