Sorry about the long line of code - here it is
in a shorter form

foreach $i (sort keys %subcat) {
        
    print "<TR><TR><A HREF=\"offers\.cgi\?
$category\&$i\"><img src=\"\.\.\/Media\/redaro\.gif\" 
width=13 height=13 border=0 alt=\"\"><\/A> <A 
HREF=\"otestnu\.cgi\?$category\&$i\">$i</A> ($subcat{$i})
</TD></TR>\n"

}
[download]