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);

##</code><code>##

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

foreach (0..5) {
        my $copy = $data1;
        print Dumper($copy);
}


##</code><code>##

use Data::Dumper;

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

my $data2 = [
        { "big" => "cow", "small" => "bunny" },
        { "big" => "horse", "small" => "mouse" },
];

foreach (0..2) {
        my $d = $data1->[$_];
        $d->{sizes} = $data2;
        print Dumper($d);
}

##</code><code>##

my @array;
foreach (0..2) {
        my $d = $data1->[$_];
        $d->{sizes} = $data2;
        push(@array,$d);
}
print Dumper(\@array);

##</code><code>##

my @array;
foreach (0..2) {
        my $d = $data1->[$_];
        $d->{sizes} = $data2;
        push(@array,clone($d));
}
print Dumper(\@array);