Select Code to Download

foreach my $affyscore ( sort keys           %{$row{$origin{$pip{$probe
+set_id}}}}){
   print "$affyscore\t";
...
.
.

#!/usr/bin/perl -w

...

close (INPUT2);