sub narray (&@);
sub narray (&@) {
    my $val = shift;
    my $size = shift;

    [map {my $i = $_; @_ ? narray {&$val($i, @_)} @_ : &$val($i)} (0 .. $size - 1)];
}

my $na = narray {"<@_>"} 3, 2
# [['<0 0>', '<0 1>'], ['<1 0>', '<1 1>'], ['<2 0>', '<2 1>']]