Ну, на самом деле это лексическая переменная в Set :: Scalar :: Universe :
my $UNIVERSE = __PACKAGE__->new;
sub universe {
my $self = shift;
return $UNIVERSE;
}
Тогда в Set :: Scalar у вас есть:
$self->{ universe } = Set::Scalar::Universe->universe;
, который просто выбирает копию этой единственной переменной (которая была инициализирована при загрузке Set :: Scalar :: Universe.
Документы Set :: Scalar попутно упоминают, что непересекающиеся вселенные еще не реализованы.