Select Code to Download

my @keynames = qw/first second third fourth/;

my %hash = map { $_, 0 } @keynames;

my @keynames = qw/first second third fourth/;
my @squares = map {  $_ ** 2 } (1 .. 4);

my %hash;
@hash{@keynames} = @squares;