my $y = { foo => "bar" };
my $X = { a => $y, b => $y, c => $y };

$Data::Dumper::Deepcopy = 1;

print Dumper($X);