perl中用sort进行数字排序

perl中采用sort函数可以对数组进行排序，例如：

@a1=(4,5,1,3,6,2,10);
$ordered = join ",",sort  @a1;

print "ordered $ordered\n"

但是输出结果并非按照数字排序的结果，而是采用ascii码，要按照数字排序只需以以下方式调用：

@a1=(4,5,1,3,6,2,10);
$ordered = join ",",sort {$a<=>$b} @a1;
print "ordered $ordered\n"