Select Code to Download

%last_name = ();
$x = \$last_name{fred}; # creates hash element, value is undef
$last_name{fred} = "flintstone";
print $$x; # prints flintstone

undef %last_name; @last_name{qw(fredref fred)} = (\$last_name{fred}, "
+flintstone");