Select Code to Download

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

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