use warnings;
use strict;

my $val = {
           'precipitation' => {
                              'mode' => 'no'
                            },
           'pressure' => {
                         'unit' => 'hPa',
                         'value' => '1031.65'
                       },
           'temperature' => {
                            'min' => '81.15',
                            'value' => '81.15',
                            'max' => '81.15',
                            'unit' => 'fahrenheit'
                          },
           'humidity' => {
                         'unit' => '%',
                         'value' => '89'
                       },
           'visibility' => {},
           'wind' => {
                     'direction' => {
                                    'value' => '202.503',
                                    'name' => 'South-southwest',
                                    'code' => 'SSW'
                                  },
                     'gusts' => {},
                     'speed' => {
                                'name' => 'Gentle Breeze',
                                'value' => '4.61'
                              }
                   },
           'clouds' => {
                       'name' => 'clear sky',
                       'value' => '8'
                     },
           'weather' => {
                        'value' => 'clear sky',
                        'icon' => '02d',
                        'number' => '800'
                      },
           'lastupdate' => {
                           'value' => '2016-05-16T18:27:33'
                         },
           'city' => {
                     'name' => 'Pine Island Center',
                     'id' => '4168493',
                     'coord' => {
                                'lat' => '26.61',
                                'lon' => '-82.12'
                              },
                     'sun' => {
                              'rise' => '2016-05-16T10:40:09',
                              'set' => '2016-05-17T00:09:55'
                            },
                     'country' => 'US'
                   }
 };

print $val->{city}{name}, "\n";
print $val->{city}{id}, "\n";
print $val->{city}{country}, "\n";

__END__

Pine Island Center
4168493
US
[download]

I am getting an error:


Can't use string ("visibility") as a HASH ref while "strict refs" in u
+se at
[download]

Using a loop:

foreach my $vals (keys %{$xml}) {
print $vals->{city}{name}, "\n";

}
[download]

Change "keys %{$xml}" to "values %$xml".

UPDATE2: Added quotes around "values %$xml" .. apparently the OP missed the "values" keyword. My bad for assuming the meaning was clear.

Alternatively, (if you want to keep using keys), try

print $xml->{$vals}{city}{name}
[download]

Update: The above assumes you have a HOH containing info on multiple cities.

Your posted DUMP contains only ONE city. For that case, the "for loop" and "keys" does not make sense. simply use $xml->{city}{name}.

        This is not an optical illusion, it just looks like one.