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