my $ref = \my $foo;
printf  $ref eq \$foo ? "Same address\n" : "Not same address\n";

my @array = \my ($this, $that);
$this = "Ovid";
print Data::Dumper->Dump([\@array,$this,$that], [qw(*array *this *that)]);