TT#116100 support '-' on domains

Using incoming-foreign-dom.scenarios.test as domain produced errors in
our checks

> Argument "" isn't numeric in subtraction (-) at scenarios/incoming_foreign_dom/0003_test.yml.tt2 line 62.

* bin/create_subscribers.pl: replace '-' as '_' to avoid this problem

Change-Id: I0f9e5defbff238f313c19907ec60644a51f7f918

bin/create_subscribers.pl

@@ -193,6 +193,7 @@ sub create_subscriber
   my $tmp = $api->get_subscriber($s->{id});
   my $key = $username =~ tr/\./_/r;
   my $key_dom = $domain =~ tr/\./_/r;
+  $key_dom = $key_dom =~ tr/\-/_/r;
   $ids->{$key_dom}->{$key}->{uuid} = $tmp->{uuid};
   return;
 }