# We want the true type of blessed objects like XML::DOM::Document
    my $true_type;
    if(ref($value)) {
        $true_type = scalar($value);
        $true_type =~ s/.*=(\w*).*/$1/;
        }
    print ref($value)," is really an $true_type\n";

##</code><code>##

XML::DOM::Document is really an ARRAY