perl -e 'my @v6=([1, 2, 3],[4, 5, 6],[7, 8, 9]);my @v7=([2, 4, 6],[1, 3, 5],[7, 8, 9]);my @vb = @{ matrix_multiply(\@v6, \@v7) };for (my $i=0;$i le 2;$i++) {for (my $j=0;$j le 2;$j++) {print $vb[$i][$j]," ";}print "\n";}sub matrix_multiply {my ($vd,$va)=@_;my ($vc);my ($v3,$v5)=matrix_count_rows_cols($vd);my ($v8,$v4)=matrix_count_rows_cols($va);for (my $i=0;$i<$v3;$i++) {for (my $j=0;$j<$v4;$j++) {my $v0=0;for (my $k=0;$k<$v5;$k++) {$v0+=$vd->[$i][$k]*$va->[$k][$j];}$vc->[$i][$j]=$v0;}}$vc;}sub matrix_count_rows_cols {my ($v9)=@_;my $v2=@$v9;my $v1=@{$v9->[0]};($v2,$v1);}'