open (MYFILE, '>>$file');
print MYFILE "$\@_[0]:$\@_[1]:$\@_[2]:$\@_[3]:$\@_[4]:$\@_[5]:$\@_[6]:$\@_[7]:$\@_[8]:$\@_[9]:$\@_[10]:$\@_[11]:$\@_[12]:$\@_[13]:$\@_[14]";
close (MYFILE);

##</code><code>##

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