$S=map{(1)x$_}@P=glob<>;
printf sort{$b<=>$a}map{$_/$S,1-$_/$S}@P