while(<>)
{
    ($categ, $subcat, $therest) = split(/|/, $_, 3);
    $subcatcount{$subcat}++;
}

foreach $subcategory (sort keys(%subcatcount))
{
    print "$subcategory contains $subcatcount{$subcategory}\n";
}