print "ref_a: ", $#$ref_a, "\nref_b: ", $#$ref_b, "\n";
for my $i (0..$#$ref_a) {
    print "Reading element $i\n";
    push @{$ref_a->[$i]}, @{$ref_b->[$i]};
}