my @lines = <$fh>; # liest alle zeilen auf einmal