foreach $key(sort {$a<=>$b} keys(%resultHoA)){
       @tmp=@{$resultHoA{$key}};#[@sorted_cols];
       $statushash{$tmp[0]}{$tmp[1]}{$tmp[2]}[0]='0';
    }