use strict;
my %prop;

sub method {
  my ($self) = @_;
  $prXp{id($self)} = 1;  # throws an error: $prXp is not declared
}