map{print RPTOUT "$_\n"} keys %tapeid;