while(my ($key, $value) = each(%{$tree})) {
        if (ref($value) eq 'ARRAY')  {
	         foreach my $array (@{$value}) {
		      my @split = split(/\=/, $array);
		      if (ref($split[1]) eq 'HASH') { print "hello";
		         while(my ($key, $value) = each(%{$split[1]})) {
		              print "$key = $value<br>\n";
		         }
               }
	         }
	    }
}