$io->write_array(q{tweaked_file}, \@array);