my $z1 = ones(5,5,3); my $z2 = 2 * ones(5,5); print $z1 * $z2;