$l=<>;<>;$l-=$_,$a+=$l>=0for sort{$a<=>$b}split$",<>;print$a