Select Code to Download

while (<DATA>) {
  my @array = (0) x 7;
...
run3 1
run4 1 3
run5 2 5

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