use strict;
no strict 'refs';
use CGI qw(:standard);

my @params = param(); #get field names with empty params()

foreach my $field ( @params ) {		
	my $variable = $field;			
	$$variable = param( $field );	
}