Select Code to Download

my @data = qw( 000- 0101 011- 1-0- );

my @data = qw( 0 1   5   6 7   8 9 12 13 );

sub to_binary {
     my $str = shift;
...
     }
     return $value;
}

for (my $ii=0; $ii<@data; $ii++) {
  if (@data[$ii] =~ /-/) {
...
    return $str;
  }
}