use Scalar::Util qw/weaken/;
my ( $x, $y );
$x = \12;
$$y = 12;
weaken($x);
weaken($y);
print $x;
print $y;
__OUTPUT__
SCALAR(0x1807f24)
Use of uninitialized value in print at 5432.pl line 11.