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'}} 
) {

##</code><code>##

Colour                    Quantity

70 (Grey brown mix)       3
72 (Green mix)            10	
74 (Fuschia mix)          8
76 (Mauve mix)            11
77 (Blue mix)             6	
90 (Beige pink mix)       12	
91 (Peach cream mix)      8 	
92 (Silver cream mix)     10	
93 (Beige blue mix)       9	
78 (Black white mix)      0	
75 (Red mix)              0
73 (Aqua mix)             0
71 (Beige mix)            0