$ perl -Mstrict -Mwarnings -E '
    my $r = 300;
    my $r_ref = \$r;
    my $g = "g";
    say $g . $$r_ref;
    $r = 500;
    say $g . $$r_ref;
'
g300
g500