diff --git a/lib/Math/MatrixReal.pm b/lib/Math/MatrixReal.pm
index 06c1afa..d154f30 100644
--- a/lib/Math/MatrixReal.pm
+++ b/lib/Math/MatrixReal.pm
@@ -657,7 +657,7 @@ sub as_list
     my($rows,$cols) = ($self->[1], $self->[2]);
     my @list;
     for(my $i = 0; $i < $rows; $i++ ){
-        for(my $j = 0; $j < $rows; $j++){
+        for(my $j = 0; $j < $cols; $j++){
             push @list, $self->[0][$i][$j];
         }
     }