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