while (<DATA>) {
  my @array = (0) x 7;

  ($array[0], my @pos) = split /\s+/;

  @array[@pos] = (1) x @pos;		
  
  print "@array\n";                      
}

__DATA__
run1 2 4
run2 1 6
run3 1
run4 1 3
run5 2 5