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

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

I dumped a hash into a file and then copied into the __DATA__section of my script. $Data::Dumper::Purity = 1; was set prior to outputting to file:
use strict; use warnings; use Data::Dumper qw(Dumper); my $hash; { local $/; $hash = <DATA>; } $hash = eval { $hash }; print keys %$hash; # error __DATA__ $VAR1 = { 'blah.com' => [ '212.235.56.176' ], 'blah.org' => [ '212.235.56.176' ], 'www.boo.org' => [ '212.235.56.176' ], };

I tried getting rid of $VAR1 in __DATA__ but that didn't help.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest Vicar";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks