# How to loop through the first layer:  What is in @info?
print "\$info:\n";
foreach my $info_item (@info)
{
	print "    []='$info_item'\n";
}

##</code><code>##

D:\PerlMonks>lists2.pl
$info:
    []='Mary,Owens,cat,white'
    []='Bill,Thompson,(cat,dog),(white,black)'
    []='Bill,Thompson,(hamster,cat),(black,brown)'
    []='Bill,Smith,(goldfish,dog,turtle),(yellow,spotted,green)'