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

Adam has asked for the wisdom of the Perl Monks concerning the following question:

I have this script which loads a table from __DATA__ thusly:
my @Table; sub LoadTable { local $/; @Table = map {chomp; hex} split ' ', <DATA>; close DATA; }
Now, I close the DATA Filehandle because I don't like "<DATA> line 1." being appended to my errors and exceptions. Which is ok, so long as I only want to call that method once. But I want to call the method multiple times, which yeilds the wonderful message: "readline() on closed filehandle main::DATA at D:\test.pl line 5." Which raises the questions:

    Can you re-open the DATA filehandle? How?