use Regex::PreSuf;
  my $pattern = presuf(keys %key);