my $ref = \do{my $some_scalar};
A reason to create such a reference is for inside-out objects:

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