Help for this page
use strict; use CGI qw/:standard/; my %form = map { $_, @{ [param($_)] } > 1 ? [param($_)] : param($_ +) } param();
color=red&color=blue&name=Ovid
%form = ( 'name' => 'Ovid', ... 'blue' ] );