<>;$h{$_}++for glob<>;print+(sort{$h{$b}<=>$h{$a}||$b<=>$a}keys %h)[0]