'location' is under 'geometry', not under 'viewport'. So the following does it:

my $long = $location->{'geometry'}{'location'}{'lng'};
my $lat = $location->{'geometry'}{'location'}{'lat'};
[download]