open FILEOUT, '>', $fn or die $!;

print FILEOUT @out;