Select Code to Download

sub processhtml {
    my ($file) = $_[0];
...
       print TEMP ("\n");
    }
}

       foreach $value3 (keys @import_values{"ship","weight","dwg","rev
+"}) {
          print TEMP ("\"$value3\",");
       }