while (<RECORDS>) {
          chomp;
          @values = split /\t/, $_;
          foreach $v (@values) {
            $$v++;
          }
        }