use strict; my $v = 'x'; print qq"$v{a}"; __END__ Global symbol "%v" requires explicit package name at rhesa1.pl line 3. Execution of rhesa1.pl aborted due to compilation errors. #### use strict; my $v = 'x'; print qq{$v\{a\}}; __END__ Global symbol "%v" requires explicit package name at rhesa3.pl line 3. Execution of rhesa3.pl aborted due to compilation errors. #### use strict; my $v = 'x'; print "$v\{a\}"; __END__ x{a}