sub sanitize_strings {
   my $arrayref = shift;
   s/[^a-zA-Z0-9_\-]/_/g foreach @$arrayref;
   return 1;
}
my @strings = qw( abc 123 a&21 j**!k );
print sanitize_strings(\@strings), " ; '@strings'\n";