@SEARCH = qw( This::Package That::One Those );

AUTOLOAD {
  $AUTOLOAD =~ s/.*:://;  # just the function name, ma'am
  for (@SEARCH) {
    my $f = join "::", $_, $AUTOLOAD;
    goto &$f if defined &$f;
  }
  # error handling here
}