my @a = 1 .. 100000;
@a = sort{ $b <=> $a } @a;