Perlコーディング初心者質問スレ Part 63

[0005 nobodyさん 2011/09/12(月) 12:40:13.04 ID:???]

sort { $a->{key1} <=> $b->{key1} || $b->{key2} <=> $a->{key2} } @$aref