@a= qw(a b c d e c d e c d e c d e c d e a b c d a b c d a b c d a b c d a b a b a e e d a a a a a a a a);
for(@a)	{
	if ($c<$r{$_}++)	{
		$m=$_;
		$c=$r{$_}
	}
}

##</code><code>##

for (keys %r){print "$_ $r{$_}\n"};
print "\n\$m is $m\n\$c is $c";