Select Code to Download

my @mat1 = readmatrix ($first);
my ($r1, $c1) = ($rows, $cols);
...
    }
    close IN;
}

my ( $r1, $c1, @mat1 ) = readmatrix( $first );

...
    }
    return $., scalar @{ $AoA[ -1 ] }, @AoA;
}