ITYM $self->{"_$_"}. What you've got compiles into $self->{$_->_}.

$ perl -MO=Deparse -e 'print $self->{_$_};'
print $$self{$_->_};
[download]