my @arrayA;
my @arrayB;
while (...) {
   @arrayB = ...;
   push(@arrayA, \@arrayB);  # XXX
}