use Tie::RegexpHash;
my $rehash = tie my %rgxhash, 'Tie::RegexpHash';
$rehash->add( qr/abc/, "abc" );
$rehash->add( qr/def/, "def" );