#!/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 ) { } }
Standard input is empty
row 0 : [ 0, 1 ], [ 2, 3 ], [ 4, 5 ], row 1 : [ 6, 7 ], [ 8, 9 ], [ 10, 11 ], row 2 : [ 12, 13 ], [ 14, 15 ], [ 16, 17 ], row 3 : [ 18, 19 ], [ 20, 21 ], [ 22, 23 ],