for my $line ( <$fh> ) {
    #mache etwas mit $line
}