($a,$b,$c)=glob<>;printf sort{$a-$b}$a*$c,$b