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