Select Code to Download

use warnings;
use strict;
...
dd $shallow;                  # { foo => { bar => "baz" }, x => "y" }
dd $hr;                       # { foo => { bar => "baz" } }
                              #  original changed  ^^^