http://www.perlmonks.org?node_id=404974


in reply to print out keys of hash with carriage returns

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