$ perl -Mstrict -Mwarnings -E 'my $v = qq{$s@a%h}; say $v'
Possible unintended interpolation of @a in string at -e line 1.
Global symbol "$s" requires explicit package name (did you forget to declare "my $s"?) at -e line 1.
Global symbol "@a" requires explicit package name (did you forget to declare "my @a"?) at -e line 1.
Execution of -e aborted due to compilation errors.

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my $v = q{$s@a%h}; say $v'
$s@a%h