sub Clone
         {
         my $self = shift @_;
         my $matrix = $self->Matrix;
         return Matrix->new( "Matrix" => [ map ( { my $row = $_; [ map ( { ( $_ ) ; } (@$row) ) ] } (@$matrix) ) ] );
         }