foreach my $affyscore ( sort keys           %{$row{$origin{$pip{$probeset_id}}}}){
   print "$affyscore\t";

foreach my $gc ( sort keys %{$row{$origin{$pip{$probeset_id{$affyscore}}}}}){
.
.
.