use CGI qw(:standard);
my %data = map { $_ => param ($_) } param();