#!/usr/bin/perl -l

use Devel::Peek qw( Dump SvREFCNT );

my $a = 1;
my $ra = \$a;
print SvREFCNT($a);   # prints 2
print SvREFCNT($ra);  # prints 1
print SvREFCNT($$ra); # prints 2

my @b = (1, 2);
my $rb = \@b;
Dump($rb);