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