Select Code to Download

#!/user/bin/perl

...
    print "$i: ($code),($diseases),($meshes)\n";
}
exit(0);

ARL6IP2,298757,Hyperalgesia,MESH:D006930
ARL6IP2,298757,Liver Diseases,MESH:D008107
...
CCL22,6367,Fatty Liver,MESH:D005234
CCL22,6367,Fetal Growth Retardation,MESH:D005317
CCL22,6367,Fever,MESH:D005334

1: (CCL22),(Esophageal Neoplasms,Fatty Liver,Fetal Growth Retardation,
+Fever),(MESH:D004938,MESH:D005234,MESH:D005317,MESH:D005334)
2: (ARL6IP2),(Hyperalgesia,Liver Diseases,"Liver Failure, Acute",Liver
+ Neoplasms),(MESH:D006930,MESH:D008107,MESH:D017114,MESH:D008113)

$codes{$code} = [[@diseases],[@meshes]];