Maybe $response is something else in the case of error?

I believe that eval shows the use of the $@ variable to detect whether an error happened within the block. Maybe you can use that to detect whether there was an error.

Alternatively, consider checking the value of $response - if it is not a true value, it can't be a hash reference:

...
    if( !$response ) {
        warn "Uhoh - we didn't get a response.";
    };
[download]

Still when using "eval" and "$@" I get: "Can't use an undefined value as an ARRAY reference at geoTest.pl line 32." I suppose this refers to " @{ $response->{Point}{coordinates} }". The code looks like this:

#!/usr/bin/perl -w
     
use strict;
use locale;
use warnings;
#use diagnostics;
use utf8;

binmode(STDIN, "encoding(utf8)");
binmode(STDOUT, "encoding(utf8)");
binmode(STDERR, "encoding(utf8)");

use Geo::Coder::Google;


my @place = ('Seattle', 'France', 'CorseMétéo', 'New Delhi');
my ($long, $lat);

foreach my $place(@place){
    my $geocoder = Geo::Coder::Google->new(apikey => '{MyAPIkeyHere}')
+;

    my $response;
    until (defined $@ || defined $response){
        eval{
            $response = $geocoder->geocode(location => $place);
        }        
    }
    if ($@){
            print "Couldn't get location\n";
        }
    ($long, $lat) = @{ $response->{Point}{coordinates} };
    print "$long\n";
    print "$lat\n";
        
}
[download]

Maybe you shouldn't try to get longitude and latitude when you already know that you didn't get a valid response?

I recommend the following structure:

    if ($@){
            print "Couldn't get location\n";
    } else {
    ... retrieve and print longitude, latitude 
    }
[download]