my $data1 = [
        { "shape" => "round", "food" => "apple" },
        { "shape" => "square", "food" => "pear" },
        { "shape" => "oval", "food" => "grape" },
];

my $test  = $data1;
my $test2 = $test;
my $test3 = $test2;

print Dumper($test3);