use strict;

my $lamb = {
     "size" => "little",
     "fleece" => "snow",
     };
my $mary = $lamb;     # Mary has a little lamb,
                      # whose fleece was white as snow
$lamb = \$mary;       # and everywhere that mary goes
undef $lamb;          # the lamb was sure to go