foreach my $person ( $self->persons_from_PerlCommunity_de ) {
  if( $person->can( 'CelebrateXmas' ) {
    $person->WishHappyXmas;
  }
}