package Array::Extract;
our $worker_pkg;

...

package Array::Extract::Worker;
BEGIN {
   $Array::Extract::worker_pkg = __PACKAGE__
}
...