my @array = (1 .. 10);
my $counter;
foreach my $element (@array) {
    print "Last element follows now!\n"    if ++$counter == scalar(@array);
    print "$element\n";
}

##</code><code>##

1
2
3
4
5
6
7
8
9
Last element follows now!
10