For that matter,

grep { print } @array;
[download]

Or even...

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

I can imagine many newbies scratching their heads if they saw that one! But I told it to "not print" the array! ;-)

Update: of course, there's the venerable...

print shift @array while @array;
[download]

... which prints, but also dismantles an array.

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

print shift @array while @array;
[download]

... which prints, but also dismantles an array.

Using that idiom inside an anonymous subroutine is non-destructive!

knoppix@Microknoppix:~$ perl -E '
> @arr = qw{ 11 22 33 44 };
> sub { say shift while @_ }->( @arr );
> say qq{@arr};'
11
22
33
44
11 22 33 44
knoppix@Microknoppix:~$
[download]

Cheers,

JohnGG