use strict;
use warnings;

my %test_hash = ("foo_bar" => "baz");
my $test = "foo";
my $key = "${test}_bar";

my $var1 = "aaa/$test_hash{$key}";
print("var1 = $var1\n");


my $var2 = "aaa/$test_hash{ $test . '_bar' }";    # concat operator
print("var2 = $var2\n");


my $var3 = "aaa/$test_hash{ qq(${test}_bar) }";   # qq() inside ""
print("var3 = $var3\n");


my $var4 = qq(aaa/$test_hash{ "${test}_bar" });   # "" inside qq()
print("var4 = $var4\n");