mysort(sub {  $_[0]{age}  <=> $_[1]{age}
           || $_[0]{name} cmp $_[1]{name} }, @list);