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