package datum;
our $value = undef;

sub new {
    my $class = shift;
    local $value = shift;

    return bless { datum => $value, glob => *value }, $class
}

sub value {
    my $self = shift;
    
    return $self{glob}
}

1

##</code><code>##

use datum;

my $d = datum->new(42);
*d =  $d->value();

# What I want to be able to here is something like:
# $d = ...; $d->{foo} = ...; push @d, ...