my $x = 1 ;
my $y = 'x' ;

$$y++ ; # $x now == 2