#!/usr/bin/env perl

use strict;
use warnings;

my $max_index = 1;
my $matrix;

for my $i (0 .. $max_index) {
    for my $j (0 .. $max_index) {
        for my $k (0 .. $max_index) {
            $matrix->[$i][$j][$k] = rand 1;
        }
    }
}

use Data::Dump;
dd $matrix;