<>;($\,@a)=sort{$b-$a}glob<>;$\+=$_>>1for@a;print