my ($val, $key) = split /\t/, $line; push @{ $hash2{$key} }, $val;