Select Code to Download

use strict;
use warnings;
...
$_ = 'baz1';
s/(\w+)(??{!$d{$1}})/$d{$1}->($1)/ge; 
print "$_\n";

Use of uninitialized value in subroutine entry at line 10.
Can't use string ("") as a subroutine ref while "strict refs" in use a
+t line 10.