my @zeilen = <DATEI>;
close(DATEI);

$zeilenanzahl = @zeilen;
my $letzteZeile = @zeilen[$zeilenanzahl];