my @elems = qw(a b c d e);

my $n = $#elems;
for my $elem (@elems) {
    print "last elem = $elem\n" if !$n--;
}