Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
  2. or download this
    foreach my $key ( keys %{$library->{place}} ) {
  3. or download this
    foreach my $place ( @{$library->{place}} ) {
  foreach my $country ( @{$place->{country}}) {
     if ($country eq 'SouthAfrica') {