Select Code to Download

my $s = "a";
$s .= "abcdefghijklmop";
...

my %h = (red => 1, blue => 2, yellow => 3);
$h{green} = 6.02e23;

my $hr = undef;
$hr->{radish} = "crunch";       # yes autoviv
...
$h{little}{cat}  = "kitten";    # no  autoviv
$h{male}{cattle} = "bull";      # yes autoviv
$h{male}{cat}    = "tom";       # no  autoviv