Select Code to Download

Can't use string ("1") as a SCALAR ref while "strict refs" in use at .
+... line 6.

my %values = (
    a => 'value a',
...
    ($a,$b,$c,$d)= map { $values{ $_ } || $_ } @captured;
};
print $a,"\n",$b,"\n",$c,"\n",$d;