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