Help for this page
if (ref($array[$i]) eq "ARRAY") { ... print "Not an array!"; }
if (ref $hash{$key} eq "ARRAY") { ... }