sub call_method_for_list {
   my $self = shift;
   my $method = shift;
   foreach my $anything (@{$self}) {
      $anything->$method(@_);
   }
}