排序问题perl

[vintager4]

看了perl学习手扎12章里的一道题,没有答案,那位大哥知道,帮帮我
利用杂凑%hash = (john, 24, mary, 28, david, 22, paul, 28)进行排序，先依照杂凑的值排序，如果两个元素的值相等，则依照键值进行字串排序。

[xyzxyz1111]

my %hash = (john, 24, zmary, 28, david, 22, paul, 28);

sub icmp{
$m = $hash{$a} cmp $hash{$b};
return $a cmp $b if $m eq 0;
$m;
}
my @aa = sort icmp keys %hash;
foreach (@aa){
print $_, ":", $hash{$_}, "\n";
}