my %params = map {
   my $vv = join ';', $cgi->param($_);
# do stuff with $vv
    $_ => $vv
} $cgi->param;