Read a data structure in __DATA__ back into a variable.

read_data_structure.pl

use strict;
use warnings;
use v5.10;

use Data::Dump qw(dump);

my $var;
while (<DATA>) {
    $var .= $_;
}
my $hr = eval $var;
say "hr: " . dump $hr;

__DATA__
[
    {
	    key => 'value'
    }
]