knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my @arr = qw{ one two three four };
> push @arr, do { my $last = pop @arr; say for @arr; $last };
> say qq{@arr};'
one
two
three
one two three four
knoppix@Microknoppix:~$