while (my $line = <>) {
    chomp $line;
    my (@columns) = split ' ', $line;
    my @switches = (0) x 6;
    unshift @switches, shift @columns; # runX kept.
    $switches[$_] = 1 for @columns;
    print join(' ', @switches), "\n";
}