RosettaCodeData/Task/Matrix-multiplication/Perl-6/matrix-multiplication-2.pl6

sub mmult(\a,\b) {
    [
        for ^a -> \r {
            [
                for ^b[0] -> \c {
                    [+] a[r;^b] Z* b[^b;c]
                }
            ]
        }
    ]
}