Thanks for reply

I learned I can put header to Dumper ouput with

print "After:", Dumper $bintree,"\n";

This is not trivial thing for me. This will help me a lot.