Help for this page

Select Code to Download


  1. or download this
    my @keys = qw{a b c d};
my %hash = map { $_ => 1 } @keys;
  2. or download this
    my @keys = qw{a b c d};
my %hash;
$hash{$_} ++ for @keys;
  3. or download this
    my @keys = qw{a b c d};
my %hash;
@hash{@keys} = (1) x scalar @keys;