I'd write that as:

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

or as

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