while (defined(my $row = <$fh>)) {
    chomp $row;
    # stuff here...
}