use strict; use warnings;
use feature qw/ say /;

chomp( my @lines = (<DATA>) );
my $num = @lines;
my $count = 1;
for my $line ( @lines ) {
    say "the last line is $line" if $num == $count++;
}

__DATA__
foo
bar
baz
qux