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

eval "$y++";

print $x, "\n";

# Output == 2