my @num = (8, 9, 3, 5, 1, 2, 6, 7) ;
my @all = sort { $b <=> $a } @num ;