my $location = $geocoder->geocode(location => "STRING");

for my $component ( @{ $location->{address_components} } )
{
    next unless grep $_ eq "country", @{$component->{types}};
    print $component->{long_name}, $/;
}