use CGI qw':standard';
my %params = map { $_ => [param($_)] } param;