my %hash;
@hash{qw[ a b c f t u] } = ('toto') x 6;
@hash{qw[ b g k p ]}     = ('titi') x 4;

##</code><code>##

my %hash;
my @array = qw[ a b c f t u];
@hash{@array } = ('toto') x @array;