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.