use Data::Dumper;

local $Data::Dumper::Terse = 1;

my $x;
$x = \$x;

__output__

\$VAR1