use strict;
use warnings;

##</code><code>##

foreach my $key ( keys %{$library->{place}} ) {

##</code><code>##

foreach my $place ( @{$library->{place}} ) {
  foreach my $country ( @{$place->{country}}) {
     if ($country eq 'SouthAfrica') {