foreach (@Bar::PLUGIN_SUBS)
{
  # error checking and the like
  *{"Foo::$_"} = \&{"Bar::$_"};
}