my %pairs = map { chomp; map @$_ == 2 ? @$_ : (), [split /\t/, $_, 2] } <FH>;