{
    package My::Tie::Scalar::Alias;

    use strict;
    use warnings;

    use Tie::Scalar qw( );

    our @ISA = 'Tie::Scalar';

    sub TIESCALAR {
        my ($class, $ref) = @_;
        return bless $ref, $class;
    }

    sub FETCH { my $self = shift; return $$self;  }
    sub STORE { my $self = shift; $$self = shift; }
}


tie $_[1], 'My::Tie::Scalar::Alias', \$VALUES{ $_[0] };