foreach my $colour ( 
	sort { 
		if ($products{'Cat'}{'Pro'}{$a}{'Qua'} <= 0) {return 1;} 
		elsif ($products{'Cat'}{'Pro'}{$b}{'Qua'} <= 0) {return -1;} 
	} 
	sort {$a <=> $b || $a cmp $b} 
	keys %{$products{'Cat'}{'Pro'}} 
) {