Golfing fun with slices! =)

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
[download]

OUTPUT

run1 0 1 0 1 0 0
run2 1 0 0 0 0 1
run3 1 0 0 0 0 0
run4 1 0 1 0 0 0
run5 0 1 0 0 1 0
[download]