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


##</code><code>##

$statushash{$tmp[0]}[0]='0',

##</code><code>##

$statushash{$tmp[0]}{$tmp[1]}[0]='0'