sub domatch {
    my ($str, $regex) = @_;
    our %mv; # Note the our
    
    return 0 if $str !~ /$regex/;
    return \%mv if keys %mv != 0;
    
    print "No keys in hash.\n";
    return 0;
}