<>=~$";printf sort{$a-$b}map 0|($s+=$_)/++$i/$',glob<>