Select Code to Download

use 5.020;
use warnings;
...

my $foo = 'foo';
say "$h{'$foo'}bar";

Use of uninitialized value $h{"$1"} in substitution iterator at extr.p
+l line 7.
bar
1bar
Use of uninitialized value $h{"$foo"} in concatenation (.) or string a
+t extr.pl line 15.
bar