use CGI;

my %var_name = (
    opp  => 'Operation',
    name => 'Name',
);

my %values;

for my $vname (keys %var_name){
    $values{$vname} = param($vname);
    print "$vname is $values{$vname}<br>\n";
}