use warnings; use strict; use Data::Dumper; my @arr = ( 1, 2, 3 ); for (my $i = scalar @arr - 1; $i >= 0; $i --) { my $a = pop @arr; print "$a\n"; print Dumper(\@arr); } print Dump(@arr);