grep { print } @array;

##</code><code>##

use List::MoreUtils qw<first>;
first { not print } @array;

##</code><code>##

print shift @array while @array;

##</code><code>##

my @r;@r = reverse @array and do { print pop @r while @r };
# Now I'm just being silly!