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.

##</code><code>##

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.

##</code><code>##

use strict;
my $v = 'x';
print "$v\{a\}";
__END__
x{a}