@all_matching_keys = grep { $_ =~ /$regex/  } keys %tax2loc;
$matching_key = $all_matching_keys[0];