@array=(
    ["Homer","Marge","Bart","Lisa","Maggie"],
    ["Ned","Maude","Rod","Todd"]
);

foreach my $ref(@array){
    print "This family consists of: ";
    foreach(@$ref){
      print "$_ ";
    }
    print "\n";
}