I am also not familiar with this module, but this does not seem to be quite right:

    if ($loop <  10) {

        $geocoder = Geo::Coder::Google->new(apiver => 3);
        eval{
           $latlong = $geocoder->geocode(location => $location);
            if ($1){
                print "!!! !!! !!! --- Couldn't get location : $locati
+on --- !!! !!! !!!\n";
            }else{
        
                $map_coords = $latlong->{geometry}{location}{lat} . " 
+" . $latlong->{geometry}{location}{lng};
        
        print ( " job no.\: $job_count $job_title \=\=\> $department $
+location $map_coords \n" );
        $loop++;
            }
        }
    }
[download]

Now the questions: 1. if ($1), $1 is a special variable used for the first successful match in a regex, but you don't seem to be using any regex. 2. Nor sure you should use an eval, it might be better to see if $latlong is defined and is a reference (I assume it should be a reference) to some data structure that is also properly defined. 3. If you really want to use eval, then you should really check the value of $@, which contains the Perl error message from the last eval (but AppleFritter++ has already mentioned this to you. In brief, you do not seem to be doing the steps needed to catch an error, I am not too surprised that you don't catch any.

Now, of course, all the above is in part speculation, as I said, I do not know this module (and have no time right now to go through it), but I still hope it might help you.