Select Code to Download

my %hash = ('a'=>'test');

my @arr = delete $hash{'a'};

print $arr[0]."\n";

%h = qw[ the quick black fiend jumps over the lazy god child ];;

...

pp \%h;;
{ jumps => "over" }