Help for this page

Select Code to Download


  1. or download this
    $b{$_}=1 for @a;
  2. or download this
    @b{@a} = (1)x@a;
  3. or download this
    my %b = map { $_ => 1 } @a;