1. Add return @AoA; at the end the readmatrix subroutine
2. Inside of the multiply sub, change return $product; into return @{$product}; - or use an array in the first place.