my $x = ones(3,5); my $y = ones(2,3); print $x x $y;