open (MYFILE, '>>$file');
 print MYFILE join(":",@tapes_to_eject);
close (MYFILE);