###  Then I overwrite mixed.data with

$data_path = "data/mixed.data";

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