my %field1 = map { $_ => $_; } @{$r->param('field1')};
my %field2 = map { $_ => $_; } @{$r->param('field2')};
my %field3 = map { $_ => $_; } @{$r->param('field3')};