print DAT Data::Dumper->Dump( [$root], ['$root'] );