Select Code to Download

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

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