foreach $item (@array) { if (UNIVERSAL::isa($item, 'ARRAY')) { print "We've got an array!!\n"; } }