Select Code to Download

@sorted = sort {
  unless ($a->{'name'} cmp $b->{'name'}) {
    $a->{age} <=> $b->{age}
  }
} @data;

jim 18
bob 24
bob 14
cathy 98
cathy 45

bob 14
bob 24
cathy 45
cathy 98
jim 18