my$L=get;
get;
my$z=0;
$_>$L or$L-=$_,$z++for get.words.sort:{$^a <=>$^b};
say $z