($N,$M)=glob<>; @A=sort{$b-$a}glob<>; print"@A[0..$M-1]"