Select Code to Download

use strict;
my $x = {};
...
my $ref = \   $x->{a}->{b}->{c}->{d};
$$ref = 'cantelope';
print  $x->{a}->{b}->{c}->{d} , " is quite delicious\n";