<>;print"@$_ "for sort{$$b[0]/$$b[1]<=>$$a[0]/$$a[1]}map[glob],<>