Select Code to Download

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

color=red&color=blue&name=Ovid

%form = (
          'name' => 'Ovid',
...
                       'blue'
                     ]
        );