Select Code to Download

[
          {
...
                                }
          }
 ];

my @sorted_places = sort { $places->$a->{name} cmp $places->$b->{name}
+ } map { keys %$_ } @$places;