Select Code to Download

use strict;
use warnings;
...
say $hash{key1}->{key2};

__END__

val2
val2
val1
val1

my @hash  = ("key3", "val3", "key4", "val4"); # actual ARRAY
my %hash3 = @hash; # even sized (2, 4, etc) list assignment works
say $hash3{key3};
say $hash3{key4};

val3
val4