open (CAR, ">$filename");
print CAR "Make and Model: @temp_data[0]\n";
print CAR "Color: @temp_data[1]\n";
etc.