Select Code to Download

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

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

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

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

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

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