$ perl -E '           
    my $x = "z";
    my $y = 1;
    $$x = $y;
    say $z;
'
1