foreach $key(sort {$a<=>$b} keys(%resultHoA)){
       $statushash{$resultHoA{$listcols[0]}[0]}='0';
    }

##</code><code>##

     $hash{arr[1]}{arr[1]}{arr[2]}.