po-gorniq primer e nelosh, no nepulen. sledva da razberesh kakvo tochno tursish
v masiva, kakvi strukturi - list, array, hash? sledva i rekursiq. no v obshtiq sluchai:


my @x = ( [ 0, 1 ], { 0 => 1 }, sub{}, \$_, \*DATA );

print+( join $/, map{ ref }@x ),$/ x 2;

print 'refs: ', scalar grep ref, @x;


__END__

ARRAY
HASH
CODE
SCALAR
GLOB

refs: 5