foreach $value2 ("ship","weight","dwg","rev") { print TEMP ("\"$import_values{$value2}\","); } print TEMP ("\n");