print "Print city: $result->[0]{'city'}\n"; #### my %hash = %{$result->[0]}; # copy result to new hash ... print "Print city: $hash{'city'}\n";