sub another_method {
    my ($self, $magic_val) = @_;
    $$[MAGIC_VALS]{$magic_val} = 1;
}

##</code><code>##

use strict;
use warnings;

$$[0] = 1;
$$[1] = 'dude!';
print "@$", "\n";     # Prints "1 dude!"