Select Code to Download

%a = qw(cat dog);
print $a{cat};
...
print $a{cat};

sub foo { $_[1] = "elephant" }

%a = qw(cat dog);
print $a{cat};
...
    $temphash{cat} = "elephant";
    %temphash;
}