use Data::Dumper;
local $Data::Dumper::Useqq = 1; # show things like newlines, tabs as "\n", "\t"
print Dumper $input_A;
print Dumper \@test_input_array;