sub ego
{
    $_[0] ||= {};
    my $corona= shift @_;
    my $pkg= caller();
    for my $ego (  $corona->{$pkg}  ) {
        $_= shift @_
            if  @_;
        $_ ||= {};
        return $_;
    }
}