open F, ">$tmp"; print F @a; print F $new_item; close F;
open F, "<$tmp"; @a = <F>; close F;