Select Code to Download

sub mass_init (\%\@$);

...
  # $hashref->{$_} = $string for @$arrayref;
  @{ %$hashref }{ @$arrayref } = ($string) x @$arrayref;
  }

$VAR1 = {
          'a' => 'toto',
...
          'f' => 'toto',
          't' => 'toto'
        };