while (my $row = <$fh>){
    chomp $row; # remove line ending
    ...