use strict;
my @array = qw(foo bar foobar foobar bar bar bar bar foo foo foo foo bar foobar);
my %hash;
$hash{$_}++ foreach @array;
print "Content-type: text/plain\n\n";
foreach (keys %hash) {
	print "$_ appears $hash{$_} times\n";
}

##</code><code>##

foobar appears 3 times
foo appears 5 times
bar appears 6 times