#!/usr/bin/perl -wT
use strict;

my $x = {name => 'x', value => 123};
my $y = $x;
$y->{name} = 'y';
$y->{value} = 321;

print "X: $x->{name} => $x->{value}\n";
print "Y: $y->{name} => $y->{value}\n";

=output
X: y => 321
Y: y => 321