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