print "test_array:  @$test_array " . #{${@{$test_array}}} . "\n";
print "test_array2: @$test_array2\n";