A  B  C  D  E
1  2  3  4  5  
1  2  3  4  5
1  2  3  4  5  
1  2  3  4  5
1  2  3  4  5  


##</code><code>##

print Dumper $matrix;

$VAR1 = bless( [
                 [
                   [
                     '5',
                     '4',
                     '4',
                     '2',
                     '4'
                   ],
                   [
                     '9',
                     '6',
                     '4',
                     '4',
                     '3'
                   ],
                   [
                     '2',
                     '73',
                     '96',
                     '6',
                     '8'
                   ],
                   [
                     '2',
                     '4',
                     '9',
                     '87',
                     '8'
                   ],
                   [
                     '2',
                     '4',
                     '10',
                     '6',
                     '8'
                   ],
                 ],
                 5,
                 5
               ], 'Math::MatrixReal' );