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