Select Code to Download

#!/usr/bin/perl
use strict;
...
print "A => ", $matrix_A;
print "B => ", my $column_B = vpdl [9,31,17,21];
print "X => ", my $coeff_X = (($matrix_A->transpose x $matrix_A)->inv 
+x $matrix_A->transpose) x $column_B;

A => 
[
...
 [         3]
 [         4]
]