foreach $item (@yourList) { $newHash{$item}++; }
print "<TABLE>\n";
foreach $item (keys %newHash) { 
   print "<TR><TD>$item</TD><TD>$newHash{$item}</TD></TR>\n";
}
print "</TABLE>\n";