#!/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)]);