my %form_data = map { $_ => form_data($cgi,$_) } @form_names;

sub form_data {
    my ($cgi,$name) = @_;
    my @data = $cgi->param($_);
    return $#data ? \@data : $data[0];
}