$ perl -wle ' our $x = 34; my $name = "x"; print $$name'
34