Help for this page

Select Code to Download


  1. or download this
    my %hash3;
@hash3{keys(%hash3_origin)} =
   ([0, 0]) x keys(%hash3_origin);
  2. or download this
    my %hash3;
@hash3{keys(%hash3_origin)} =
   map { [0, 0] } 1..keys(%hash3_origin);
  3. or download this
    my %hash3; $hash3{$_} = [0, 0] for keys(%hash3_origin);
  4. or download this
    my @hash3 = map { $_ => [0, 0] } keys(%hash3_origin);