print "Print city: $result->[0]{'city'}\n";