for (my $ii=0; $ii<@data; $ii++) {
  if (@data[$ii] =~ /-/) {
    splice(@data, $ii, 1, bits(@data[$ii]));
  }
}
sub bits {
  my $str = shift;
  if ($str =~ /-/) {
    if (substr($str, $ii, 1) eq '-') {
      bits( substr($str, $ii, 1, '0' );
      bits( substr($str, $ii, 1, '1' );
      # somehow don't return anything...  ????
    }
  } else {
    return $str;
  }
}