Select Code to Download

sort { 
    $products{'Cat'}{'Pro'}{$a}{'Qua'} <=> $products{'Cat'}{'Pro'}{$b}
+{'Qua'}
...
    $a cmp $b
}
keys %{ $products{'Cat'}{'Pro'} }

my $pro_products = $products{Cat}{Pro};

...
    $a cmp $b
}
keys %$pro_products