my ( $x, $y );

$x = \12;
$$y = 13;

my $a = $x;
my $b = $y;

$x = \14;
$$y = 15;

print("a = $$a\n");  # 12
print("b = $$b\n");  # 15
print("x = $$x\n");  # 14
print("y = $$y\n");  # 15

##</code><code>##

x = new int;
*x = 14;

##</code><code>##

if (y == NULL) {
   y = new int;
}
*y = 15;