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)'