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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

    @data=split (/\t/,$_);
    my $probeset_id  =  $data[0];
    my $origin       =  $data[1];
    my $probeseq     =  $data[2];
    my $pip          =  $data[3];
    my $gc           =  $data[4];
    my $affyscore    =  $data[5];

##</code><code>##

my ($probeset_id, $origin, $probeseq, $pip, $gc, $affyscore) = split /\t/;