my @matrix = 
    (
    [qw( . . . 1 0 0 1 0 1 0 1)],
    [qw( . . 0 1 2 3 4 5 6 7 8)],
    [qw( . 0 . . . . . . . . .)],
    [qw( 0 1 . . . . . . . . .)],
    [qw( 1 2 . . . . . . . . .)],
    [qw( 0 3 . . . . . . . . .)],
    [qw( 1 4 . . . . . . . . .)],
    [qw( 1 5 . . . . . . . . .)],
    [qw( 0 6 . . . . . . . . .)],
    [qw( 1 7 . . . . . . . . .)],
    [qw( 1 8 . . . . . . . . .)],
    [qw( 0 9 . . . . . . . . .)],
    [qw( 1 7 . . . . . . . . .)],
    );

    foreach $row (@matrix) {
        print "@$row\n";
    }