foreach $i (sort keys %subcat) { print "

<\/A> $i ($subcat{$i})\n" }