Select Code to Download

print $people[0][0]->name;

foreach ( @{$people[0]} ) {
    print $_->name;
}

foreach $row ( @people ) {
   foreach $cell ( @$row ) {
      print $cell->name;
   }
}