just another one that might speed up sorting if the sort criteria would get more complicated...

my @sorted = map { $_->[2] }
             sort { ($a->[0] cmp $b->[0]) || ($a->[1] cmp $b->[1]) }
             map { [ $_->{name}, $_->{age}, $_ ] }
             @data;
[download]