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.