my $x=\do{my $x="string"};