my @array = (<DATA>);

open(IN, ">data.txt") or die $!;
print IN @array;
close IN;