my $letzte_zeile = pop @zeilen;
# oder auch
$letzte_zeile = $zeilen[ -1 ];
# oder auch
$letzte_zeile = $zeilen[ $#zeilen ];
# oder auch
$letzte_zeile = $zeilen[ $zeilenzahl - 1 ];