my %data = map { chomp; split /\t/, $_, 2 } ;