<>=~$";($\+=$_*$.)%=$%,($.*=$')%=$%for sort{1}grep$%+=$_,glob`dd`;print