#!/usr/bin/perl

# parent

use Data::Dumper;
use strict;
use warnings;

my $stored=`perl child.pl`;
my $data;
eval $stored;
warn Data::Dumper->Dump([\$data],[qw(*data)]);

##</code><code>##

#!/usr/bin/perl

# child

use Data::Dumper;
use strict;
use warnings;

my $data={aref=>[qw(a b c d)],href=>{}};

print Data::Dumper->Dump([\$data],[qw(*data)]);