print shift @array while @array;

##</code><code>##

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:~$