##############################################
#  Wrong!  (thanks tobylink)
#@AoH = sort { $a->{Son} <=> $b->{Son} } @AoH;
# Correct.
@AoH = sort { $a->{Son} cmp $b->{Son} } @AoH;