#!/usr/bin/perl -w
use strict;
my @Tree = (
{
array => "",
foo => 'bar'
},
{ array => [
{ bar => 'foo'},
]
},
);
my $tree = \@Tree;
print "ohne  defined .$/"  if  @$tree[0]->{array};
print "defined.$/"  if  defined @$tree[0]->{array};
# defined
print "ohne  defined .$/"  if  @$tree[1]->{array};
print "defined.$/"  if  defined @$tree[1]->{array};
# ohne  defined .
# defined.
# array bzw subtree ist manchmal kein array .