$ns = 'Foo::Bar::Baz';
my $stash = \%::;
foreach(split '::', $ns) {
    $stash = $stash->{"$_\::"};
}

$ref = \${ $stash->{x} };