如果你想忽略字符串的大小写来排序——即通常所谓的字母序，你可以像下一个例子这么做：
my @sorted_words = sort { lc($a) cmp lc($b) } @words;
这里为了比较，我们调用lc函数返回参数的小写版本。然后cmp比较这些小写版本并决定原始字符串谁先谁后。
结果是
$VAR1 = [
'bar',
'foo',
'moo',
'Zorg'
];
Perl对数值排序
如果对数值数组使用sort进行默认的排序，结果可能不是我们期望的。
my @numbers = (14, 3, 12, 2, 23);
my @sorted_numbers = sort @numbers;
say Dumper @sorted_numbers;
$VAR1 = [
12,
14,
2,
23,
3
];
仔细一想的话，这并不奇怪。比较函数看到12和3时，它按字符串进行比较。这意味着比较两个字符串的第一个字符"1"和"3"。 在ASCII码表里，"1"在"3"前边，因此字符串"12"会排在字符串"3"前面。
Perl不会很神奇地猜到你想按数字对这些值排序。
尽管我们可以写一个比较函数来按数字比较两个值。但这里我们使用<=>（也被称作宇宙飞船操作符）， 它会按数字来比较两个参数并返回1、-1或者0。
my @sorted_numbers = sort { $a <=> $b } @numbers;
结果是：
$VAR1 = [
2,
3,
12,
14,
23
];
