#!/usr/bin/perl
use v5.10;

my @x;
my ($m, $n, $p) = (4,3,2);
my $v = 0;

foreach my $mx (0..$m-1) {
    foreach my $nx (0..$n-1) {
        foreach my $px (0..$p-1) {
            $x[$mx][$nx][$px] = $v++;
        }
    }
}

# print nicely
my $ii;
foreach my $m (@x) {
    say "\nrow " . $ii++, ' : ';
    foreach my $n ( @$m ) {
        my $p = join(', ', @$n);
        print "[ $p ], ";
    }
}