our $x=666; #develish

{
    my $x='et voila';
    my $y="x";
    print eval "\$$y"; # prints "et voila"
}