knoppix@Microknoppix:~$ perl -E '
> @arr = qw{ one two three four };
> say for do { local @arr = @arr[ 0 .. $#arr - 1 ]; @arr };
> say qq{@arr};'
one
two
three
one two three four
knoppix@Microknoppix:~$ 

##</code><code>##

knoppix@Microknoppix:~$ perl -Mstrict -wE '
> our @arr = qw{ one two three four };
> say for do { local @arr = @arr[ 0 .. $#arr - 1 ]; @arr};
> say qq{@arr};'
one
two
three
one two three four
knoppix@Microknoppix:~$

##</code><code>##

knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my @arr = qw{ one two three four };
> say for do { my @arr = @arr[ 0 .. $#arr - 1 ]; @arr};
> say qq{@arr};'
one
two
three
one two three four
knoppix@Microknoppix:~$