my ($numOnes, $strLen) = (9, 25);

my @input_data = uniq map { substr $_, 0, $numOnes - 1 }
    GenUniStrings($numOnes - 1, $numOnes * 2 - 2);

print "$_\n" for @input_data;

__END__
11111111
11111110
11111101
11111100
11111011
11111010
11111001
11111000
...
00000111
00000110
00000101
00000100
00000011
00000010
00000001
00000000