my $q = CGI->new; my @names = $q->param; my %param;