Select Code to Download

    $hash{$_} = "toto" for qw [a b c d e f g];

    @hash{qw [a b c d e f g]} = ('toto') x 7;