foreach my $meth ( grep { $person->can( $_ ) } ...