Select Code to Download

use strict;
use warnings;
...

print "Root is $root\n";
Dump (\%tree);

Root is c
$HASH1 = {
...
                  'b'
                ]
         };