in reply to Testing Complex Data Structures

my $ref= $data->{foo};
my @elts= UNIVERSAL::isa( $ref, "ARRAY" ) ? @$ref : $ref;

[download]
        - tye (but my friends call me "Tye")

In Section Seekers of Perl Wisdom