$hash{"$regexp"} = $value;

...
$value  = $hash{$key};
$regexp = qx/$key/;  # Expensive

##</code><code>##

$hash{"$regexp"} = [ $regexp, $value ];

...
$value  = $hash{$key}[1];
$regexp = $hash{$key}[0];

##</code><code>##

$hash{"$regexp"} = $value;
$regexps{"$regexp"} = $regexp;

...
$value = $hash{$key};
$regexp = $regexps{$key};