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

##</code><code>##

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

##</code><code>##

$row{$origin}{$pip}{$probeset_id}{$affyscore}{$gc} =$probeseq;

##</code><code>##

$row{$origin} = {}; # set value to an empty hash reference 
$row{$origin}{$pip} = {};
$row{$origin}{$pip}{$probeset_id} = {};
$row{$origin}{$pip}{$probeset_id}{$affyscore} = {};
$row{$origin}{$pip}{$probeset_id}{$affyscore}{$gc} =$probeseq;