use Regexp::Assemble;
my $ra = Regexp::Assemble->new;
$ra->add($_) for keys %dict;