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