my $evaltext;
foreach my $key (keys %inputdata) {
    $evaltext .= "\$$key = qq~$inputdata{$key}~;\n";
}#foreach
eval $evaltext;