Select Code to Download

my $location_array_ref;

...
else {
    $location_array_ref = [ $location_ref ];
}

expression1 ? expression2 : expression3

foreach my $e (@{$getToysResults->{Toys}{Toy}}) {
    my $location_ref = $e->{ToyLocations}{ToyLocation};
...
        print $location_array_hash_ref->{locationName}, "\n";
    }
}

#!/usr/bin/env perl

...
        print $location_array_hash_ref->{locationName}, "\n";
    }
}

$ pm_parse_soap_ref.pl
Data corrupt at ./pm_parse_soap_ref.pl line 69.
...
HASH:toybox
ARRAY:toybox
ARRAY:shelf