Select Code to Download

$ diff -u \
    <( perl -MO=Concise,-exec -e'@vals = map   $_*5,  @vals;' 2>&1 ) \
...
-f  <2> aassign[t8] vKS/COMMON
+f  <2> aassign[t9] vKS/COMMON
 g  <@> leave[1 ref] vKP/REFC

PP(pp_scope)
{
    dVAR;
    return NORMAL;
}

$ perl -wle'use strict; map +(my $x = $_), 2; print $x'
Use of uninitialized value in print at -e line 1.