my $base = 'foo_';
my $obj = new obj;
for(qw/baz qux stuff/)
{
  my $meth = "${base}_$_";
  $obj->$meth;
}