$ perl -E '
    my $x = "z";
    my $y = 1;
    eval "my \$$x = \$y; say \">>>\$z<<<\"";
    say ">>>$z<<<";
'
>>>1<<<
>>><<<