that's because he hardcoded $x->[0] and $x->[1]

here a generic version

use v5.12;
use warnings;
use Data::Dump qw/pp dd/;


my $X =
  [
   [1, -4, 7],
   [-2, 3, 3]
  ];

my $Y =
  [
   [8, -9, -6,  5],
   [1, -3, -4,  7],
   [2,  8, -8, -3],
   [1,  2, -5, -1]
  ];

pp $X;
pp $Y;

my $X_Y;
for my $x ( @$X ) {
    for my $y ( @$Y ) {
        push @$X_Y,
          [
           map {
               my $xx = $_;
               map { $xx * $_} @$y
           } @$x
          ];
    }
}

pp $X_Y;
[download]

[[1, -4, 7], [-2, 3, 3]]
[[8, -9, -6, 5], [1, -3, -4, 7], [2, 8, -8, -3], [1, 2, -5, -1]]
[
  [8, -9, -6, 5, -32, 36, 24, -20, 56, -63, -42, 35],
  [1, -3, -4, 7, -4, 12, 16, -28, 7, -21, -28, 49],
  [2, 8, -8, -3, -8, -32, 32, 12, 14, 56, -56, -21],
  [1, 2, -5, -1, -4, -8, 20, 4, 7, 14, -35, -7],
  [-16, 18, 12, -10, 24, -27, -18, 15, 24, -27, -18, 15],
  [-2, 6, 8, -14, 3, -9, -12, 21, 3, -9, -12, 21],
  [-4, -16, 16, 6, 6, 24, -24, -9, 6, 24, -24, -9],
  [-2, -4, 10, 2, 3, 6, -15, -3, 3, 6, -15, -3],
]
[download]

updates

cleaned up code

addded output

---

In reply to Re^3: Kronecker Product by LanX
in thread Kronecker Product by choroba

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.