my $n;
for my $elem (map {$n++; $_} qw(a b c d e)) {
    print "last elem = $elem\n" if !--$n;
}