$l=<>;<>;@_=sort{$a<=>$b}split$",<>;$w+$_<=$l&&(++$x,$w+=$_)for@_;print$x,$/