use strict;
my $q = CGI->new();
my %p;
$p{$_} = $q->param($_) for qw( name
                               email
                               website
                               andSoOn
                              );