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

##</code><code>##

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

##</code><code>##

   "a " . $b . " -> {c}";

##</code><code>##

  "a " . $b -> {c};

##</code><code>##

use strict;
my $var = "this";
print "$var{whatever}";
__END__
Global symbol "%var" requires explicit package name at -e line 3.

##</code><code>##

use strict;
my $var = "this";
print "${var}{whatever}";
__END__
this{whatever}