foreach my $x (reverse @array) { #...}