Select Code to Download

sub PutShare {
    print "Args: ", join(' | ', @_), "\n";
...
        print "\n";
    }
}

use strict;
use warnings;
...
PutShare(\%User, qw/deep deeper fish halibut/);
print "The resulting leaves are: '$User{deep}{fish}' and '$User{deep}{
+deeper}{fish}'\n";
print "\nDump: ", dump(\%User);

Args: HASH(0x18241f8) | deep | fish | tuna
  Key = deep
...
The resulting leaves are: 'tuna' and 'halibut'

Dump: { deep => { deeper => { fish => "halibut" }, fish => "tuna" } }

Dump: { deep => { deeper => { fish => '#LVALUE#' }, fish => "tuna" } }