Select Code to Download

grep { print } @array;

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

print shift @array while @array;

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