1.升序排序
@number=qw/5 10 15 3 2 4 8 6/;
my @descending =sort {$a<=>$b} @number;
print "@descending\n";
2.降序排序
@number=qw/5 10 15 3 2 4 8 6/;
my @descending =sort {$b<=>$a} @number;
print "@descending\n";