I'm sure I've dont this before, but this time it only returns:

name -- name
name -- name
[download]

my %field_def = (
        name => "name",
        country => "country",
        province => "province",
        description => "description",
        url => "resort_url",
        tubs => "tubs",
        pool => "pool",
        parking => "parking"
);

for (my ($key, $val) = each (%field_def)) {
        print "$key -- $val\n";
}
[download]

hmm. -rfb

Originally posted as a Categorized Question.