use Data::Dumper;

printf "TFD> treeref => '%s'\n", Dumper(\$treeref);