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