$ perl -E '
    my $x = 5;
    say $x;
    my $y = \$x;
    say $y;
    say $$y;
    $$y += 3;
    say $x;
'
5
SCALAR(0x60008a1c8)
5
8