I need to generate a matrix on the fly, but the following does not work:

$N     = 4;

###Initialize all values to 0
for ($I=1;$I<=$N;$I++) {
    for ($K=1;$K<=$N;$K++) {
        $table[$I,$K] = 0;
    }
}

### Fill table in with needed info
for ($I=1;$I<=$N;$I++) {
    for ($K=1;$K<=$N;$K++) {
        if ($I > "$K") {
            $table[$I,$K] = "1";
        }
    else {
         #other Junk
    }
    }
}

### Prin table out for viewing
for ($I=1;$I<=$N;$I++) {
    $Left = $M;
    for ($K=1;$K<=$N;$K++) {
        print "$table[$I,$K] : ";
    }
    print "\n";
}

the expected output is:
0 : 0 : 0 : 0
1 : 0 : 0 : 0
1 : 1 : 0 : 0
1 : 1 : 1 : 0

HOWVER the is the following:

1 : 1 : 1 : 0
1 : 1 : 1 : 0
1 : 1 : 1 : 0
1 : 1 : 1 : 0
[download]

any ideas?

thanks in advance