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