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]