my %data = map { $_ => param ($_) } param();

##</code><code>##

color=blue&color=red

##</code><code>##

my %data = map { $_ => [ param($_) ] } param();

##</code><code>##

my %data = map { $_ => scalar @{[ param( $_ ) ]} == 1 ? param( $_ ) : [ param( $_ ) ] } param;

##</code><code>##

name=fred&color=red&color=blue