sub main_package_vars {
        foreach my $name (@_) {
            no strict 'refs'; *{ $name } = sub {
                my $p = shift;
                $p->{$name} = $_[0] if @_;
                $p->{$name};
            };
        }
    }

##</code><code>##

main_package_vars( 'Some::Namespace::foo', 'main::bar', 'baz' );