@srecs = sort {     $b->{AGE}      <=>  $b->{AGE}                    ||     $a->{SURNAME}  cmp  $b->{SURNAME} } @recs;