my %dict =  map { chomp; split "\t", $_, 2 } <$fh>;