open ($INPUT,"<$quelle") or die "konnte $ziel nicht oeffnen,$!\n";
    my @content = <$INPUT>;
close($INPUT);

for my$i (reverse 0..$#content) {
    # mach was mit $content[$i]
    # die letzte zeile kriegst du hier zuerst
}