my $foo = Obj->new;
for (qw( create init add )) {
  $foo->$_();  # note -- $foo->$_ will not work, ()'s needed
}