my $foo = $1 if $_ =~ /regex/;

##</code><code>##

if ( $_ =~ /regex/ ) {
   my $foo = $1;
   $db_results->{$foo} = delete $db_results->{$_};
}