Select Code to Download

my ($foo,$bar,$baz);

...
format STDOUT =
@<<<<<        @|||||     @### 
$foo,$bar,$baz

use Data::Dumper;
use Math::Matrix;
...
);

print Dumper $a->transpose();