还不明白sort返回什么？让我们先打印出@x里元素的ASCII顺序：
@x = qw(matt elroy jane sally);
print join ' ',sort { $a cmp $b } @x;
打印结果是：
elroy jane matt sally
它们在@x里对应的下标是1 2 0 3，所以上述sort返回的结果就是1 2 0 3这个列表了。@rank[1 2 0 3] = 0 .. $#x 只是个简单的数组赋值操作
所以@rank的结果就是(2 0 1 3)了。
6. 按keys对hash进行sort
%hash = (Donald => Knuth, Alan => Turing, John => Neumann);
@sorted = map { { ($_ => $hash{$_}) } } sort keys %hash;
foreach $hashref (@sorted) {
($key, $value) = each %$hashref;
print "$key => $valuen";
}
打印结果是：
Alan => Turing
Donald => Knuth
John => Neumann
上述code不难明白哦。sort keys %hash按%hash的keys的ASCII顺序返回一个列表，然后用map进行计算，注意map这里用了双重{{}}
里面的 {} 是个匿名hash哦，也就是说map的结果是个匿名hash列表，明白了呀？
所以@sorted数组里的元素就是各个匿名hash，通过%$hashref进行反引用，就可以访问到它们的key/value值了。
7. 按values对hash进行sort
%hash = ( Elliot => Babbage,
Charles => Babbage,
Grace => Hopper,
Herman => Hollerith
);
@sorted = map { { ($_ => $hash{$_}) } }
sort { $hash{$a} cmp $hash{$b}
or $a cmp $b
} keys %hash;
foreach $hashref (@sorted) {
($key, $value) = each %$hashref;
print "$key => $valuen";
}
打印结果是：
Charles => Babbage
Elliot => Babbage
Herman => Hollerith
Grace => Hopper
与hash keys不同，我们不能保证hash values的唯一性。假如你仅根据values来sort hash，那么当你增或删其他values时，有着相同value的2个元素的sort顺序可能会改变。为了求得稳定的结果，应该对value进行主sort，对key进行从sort。
这里{ $hash{$a} cmp $hash{$b} or $a cmp $b } 就先按value再按key进行了2次sort哦，sort返回的结果是排序后的keys列表，然后这个列表再交给map进行计算，返回一个匿名hash列表。访问方法与前面的相同，偶就不详叙了。
8. 对文件里的单词进行sort，并去除重复的
perl -0777ane '$, = "n"; @uniq{@F} = (); print sort keys %uniq' file
大家试试这种用法，我也不是很明白的说
@uniq{@F} = ()使用了hash slice来创建一个hash，它的keys是文件里的唯一单词;
该用法在语意上等同于$uniq{ $F[0], $F[1], ... $F[$#F] } = ()
