BEGIN {
   no strict 'refs';
   for my $prefix (qw(FOO BAR OOF RAB)) {
      my $sub = lc($prefix);
      *{$sub} = sub { my $self = shift; return $self->foobar($prefix, @_) }
   }
}