mysort(\@list, 'age', 'asc', 'name', 'asc');

##</code><code>##

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

##</code><code>##

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