use CGI;
%var_name = (
opp => 'Operation',
name => 'Name',
);
for $vname (keys %var_name){
$statement='$'.qq!$vname = param('$vname')!;
# this did not work
eval{ $statement };
# nor did this
${statement};
print "$vname is $${vname}
\n";
}
####
$opp=param('opp');
$name=param('name');