use strict;
my $v = 'x';
print qq{$v{a}};
__END__
Global symbol "%v" requires explicit package name at -e line 3.