use warnings;
use strict;

our ($a,$b);

package Tst;

print sort { $b cmp $a } 1..10;