while  ($line = <$fh>) {
  chomp (@r = split/\s+/);