foreach my $i (reverse ...list...) {
   ...
}