use Data::Dumper; 
print Dumper($tree);