$matching_key = first { $_ =~ /$regex/  } keys %tax2loc;