in reply to Generate unique file handles

I highly recommend you the File::Temp module.

In Section Seekers of Perl Wisdom