@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{$_}
	}
}