print~~grep$_>$a[$'],@a=sort{$b-$a}<>=~$"-2,glob<>