I wasn't sure if you had a problem...

But, you do have redundant code (in bold):

$output .= qq~ | </a> ~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);

$output .= qq~ <a href="$url"> &#187;</a> ~ if ($v ne $#{$subcategories{$subcat}} && $v <= 5);

Remove one of them:

Remove ALL of the red code, and you will then get this: » linked to the main category. It looks like this (mine has the word 'more' included):

Personal Pages, Link Indexes, Discussion Boards, Clip Art, Web-Hosts & How-To, Fonts & Software, more»


Remove ALL of the blue code to keep the | at the end of the sub-category list. In the red code, the </a> is not needed, remove it.


Leonard
aka PerlFlunkie