warn "Value of \$hashnew{\$com}: '$hashnew{$com}'\n";

while(<FILE1>) { 
    print WFILE $_ if m/$hashnew{$com}/;
}