use Devel::Peek qw(SvREFCNT);

$x = 42;
$y = \$x;

$refs_for_x = SvREFCNT($x);
print "$refs_for_x\n";