Select Code to Download

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

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

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