use warnings;
use strict;
use Net::FTP;
use Math::MatrixReal;



print "\n Matrix from Arrays -Printing in ROWS format\n";
my @matrix1 = ( -0.022333,
            -0.016800,
            -0.016128,
            -0.015456,
            -0.014784,
            -0.014112,
            -0.013440,
            -0.012768,
            -0.012096,
            -0.011424
            );

my @matrix2 =  ( 3.36,
            3.2,
            3.35,
            3.45,
            3.55,
            3.65,
            3.75,
            3.85,
            3.95,
            2.30
            );

my $matrix_final = Math::MatrixReal->new_from_rows( [ \@matrix1, \@matrix2 ] );
print $matrix_final;

	my $matrix_transpose = Math::MatrixReal->new(10,2);
	   $matrix_transpose->transpose($matrix_final);

	   print $matrix_transpose;