$ perl -le'
my @array = "A" .. "H";
my $count = @array;
for my $letter ( @array ) {
    if ( --$count ) {
        print "Letter: $letter";
        }
    else {
        print "Last letter: $letter";
        }
    }
'
Letter: A
Letter: B
Letter: C
Letter: D
Letter: E
Letter: F
Letter: G
Last letter: H