Select Code to Download

### First I read from database.

...
@rawdata=<DAT>;
close(DAT); 
chomp @rawdata;  ## <<-- add this line here

###  Then I overwrite mixed.data with

...
open(O, ">$data_path"); 
print O @scale;    ## <<-- don't use 'join "\n",...'
close(O);