sub new {
    my $pkg    = shift;
    my %dictionary;
    my $self = \%dictionary;

    bless $self, $pkg;
}


##</code><code>##

sub new {
    my $pkg = shift;
    my $self = \\@_;

    bless $self, $pkg;
}

##</code><code>##

sub new {
    my $pkg = shift;
    my $self = \@_;

    bless $self, $pkg;
}

##</code><code>##

sub eprint {
    my $self = shift;
    my $key  = shift;
 
    print "KEY: $key\n";
    foreach my $show (@{$self}) {
        print "element: $show\n";
    }
}

##</code><code>##

$self->{$key} = $$entry;           # anchor reference in dictionary
$entry->eprint($key);              # just for debug purpose (WORKS)

##</code><code>##

    # remeber: value of the hash-element with
    # key $k1 is an Entry object
    my $ref1 = $dictionary{$l1}->{$k1};

    # works
    foreach my $meaning (@{$ref1}) {
      &message("\t$meaning\n");
    }
    $ref->eprint($k1); # no chance :-(