my ($a,$b)=(0,0);
print sort { $b cmp $a } 1..10;