Sorry about the long line of code - here it is
in a shorter form
<CODE> foreach $i (sort keys %subcat) { print "<img src=\"\.\.\/Media\/redaro\.gif\" width=13 height=13 border=0 alt=\"\"><\/A> $i ($subcat{$i}) \n" }