Select Code to Download

foreach my $f (@fields) {
    my $val = eval qq{ \$fromQuery::$f };
...
    push(\@where,        $val);
    push(\@searchString, $val);
}

foreach my $f (@fields) {
    no strict 'refs';  # This will only last in this scope
...
    push(\@where,        $val);
    push(\@searchString, $val);
}