Select Code to Download

foreach $Query ( keys (%hash) ) {
foreach $Query ( keys (%hash2) ) {
   print "$Query\t$hash{$Query}[0]\t$hash{$Query}[1]\t$hash2{$Query}[2
+]\t$hash{$Query}[3]\t$hash{$Query}[4]\n";
}
}