in reply to if (ref $value eq "ARRAY") {

try: 

if (UNIVERSAL::isa($value, 'ARRAY') {

[download]
Tiago
update: sorry about the hasty response... nothing to see here, move along now :)

In Section Seekers of Perl Wisdom