use Scalar::Util qw(refaddr);
...
my $this = bless \do{my $some_scalar}, $class;
my $key = refaddr $this;