for my $i (0..6) {
    for my $j (0..6) {
        $matrix[$i][$j][$_] = 0 for (0..2);
    }
}