<>; my @memo, @ans; $ans[++$memo[$_]]=$_ for sort{-1}glob<>; print $ans[-1];