my %pairs = map {chomp; split /\t/, $_, 2} grep /.\t./, <FH>;