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');