while(1) {
   chomp($row = <$fh>) or last;