>>968
使ったことないんだが
単数のとき、 $value = $tree->{top}->{elem};
複数のとき、 $value = $tree->{top}->{elem}->[0];
だよな？とすれば、
単数のとき、 ref($tree->{top}->{elem}) eq "HASH"
複数のとき、ref($tree->{top}->{elem}) eq "ARRAY" / $count = @{$tree->{top}->{elem}}
となるはず。