Select Code to Download

my $data1 = [
        { "shape" => "round", "food" => "apple" },
...
my $test3 = $test2;

print Dumper($test3);

my $data1 = [
        { "shape" => "round", "food" => "apple" },
...
        print Dumper($copy);
}

use Data::Dumper;

...
        $d->{sizes} = $data2;
        print Dumper($d);
}

my @array;
foreach (0..2) {
...
        push(@array,$d);
}
print Dumper(\@array);

my @array;
foreach (0..2) {
...
        push(@array,clone($d));
}
print Dumper(\@array);