Select Code to Download

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

color=blue&color=red

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

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

name=fred&color=red&color=blue