use strict;
use warnings;
use Data::Dumper;

use Math::Matrix;
srand(time);
my $a = new Math::Matrix ([rand,rand,rand], 
                          [rand,rand,rand], 
                          [rand,rand,rand]);
print Dumper($a);
print $a->[0]->[0]; # get 1 element

__END__

$VAR1 = bless( [
                 [
                   '0.83428955078125',
                   '0.442596435546875',
                   '0.792205810546875'
                 ],
                 [
                   '0.193817138671875',
                   '0.21514892578125',
                   '0.23980712890625'
                 ],
                 [
                   '0.09869384765625',
                   '0.627197265625',
                   '0.514892578125'
                 ]
               ], 'Math::Matrix' );
0.83428955078125