Something based on:

@list = qw(bing spam bing sponge bob pub time wibble sponge sponge);

$count{$_}++ for @list;

print map {"$_\t$count{$_}\n"} sort keys %count;
[download]

--
Steve Marvell