use CGI;
my $cgi = CGI->new(
    user_name => 'foobat'
);
my %data = (
    email => scalar( $cgi->param('user_email')),
    name  => scalar( $cgi->param('user_name'))
);
print "@{[keys %data]}\n";

__END__
email name