<>; $a[length]++for<>; ($b)=sort{$b-$a}@a; for(3..999){ $c=$_ if$a[$_]==$b; } print$c-3;