local %hash; *hash = $result->[0]; ... print "Print city: $hash{'city'}\n";