open F, ">tmpfile";
print F @array;
print F "$one_more\n";
close F;
open F, "<tmpfile";
@array = F;
close F;