Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my $var2 = "aaa/$test_hash{${test}_bar}";

printf("var2 = $var1\n");

> ./braces_inside_braces.pl 
Bareword found where operator expected at ./braces_inside_braces.pl li
+ne 14, near "${test}_bar"
        (Missing operator before _bar?)
syntax error at ./braces_inside_braces.pl line 14, near "${test}_bar"
Execution of ./braces_inside_braces.pl aborted due to compilation erro
+rs.