1110000000
1101000000
1100100000
1100010000
...till...
0000100011
0000010011
0000001011
0000000111

##</code><code>##

sub GenUniStrings {
  my ($OnesCount, $ZeroStrLn) = @_;
  
  # some Perl magick goes here in loop, printing generated unique strings

}
GenUniStrings(3,25);