Select Code to Download

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

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