my @a; push @a, [ 'a', 'b' ]; push @a, [ 'c', 'd' ]; for my $row (@a) { for my $cell (@$row) { print("$cell "); } print("\n"); } #### my @a; push @a, \@arraya; push @a, \@arrayb;