my %anzahl = ();
$anzahl{$_}++ for <$fh>;
print "$_ ($anzahl{$_})\n" for keys %anzahl;