my @sorted_places = 
map { $_->[1] }
sort { 
    $a->[0]  cmp  $b->[0]
} map { 
    [
        ( values %$_ )[0]->{name},
        $_
    ]
} @$places;