use strict;
    use CGI qw/:standard/;
    my %form = map { $_, @{ [param($_)] } > 1 ? [param($_)] : param($_) } param();