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

##</code><code>##

color=red&color=blue&name=Ovid

##</code><code>##

%form = (
          'name' => 'Ovid',
          'color' => [
                       'red',
                       'blue'
                     ]
        );