use strict;
use warnings;
use feature 'say';
use Algorithm::Combinatorics qw(combinations);

my $length = 10;
my $ones = 2;

my $iter = combinations([0..$length-1], $ones);

while (my $positions = $iter->next)
{
  my @data = (0,) x $length;
  $data[$_] = 1 for @$positions;
  say join "", @data;
}