my %hash;
tie %hash, 'Tie::RegexHash';
@hash{@array} = ();