use CGI qw(param); my %hash= map{my $v=[param($_)];$_,$#$v>0?join ("\0",@$v):shift@$v}param();