Help for this page
print($result->[0]{'city'}, "\n");
foreach $record (@$result) { foreach $field (keys %$record) { ... } print("\n"); }