$ perl -MO=Concise,-exec -e'local $s = "foo"' 2>&1 | grep assign
5  <2> sassign vKS/2

$ perl -MO=Concise,-exec -e'local ($s) = "foo"' 2>&1 | grep assign
7  <2> aassign[t2] vKS

##</code><code>##

$ perl -le'my $x = local  $s  = "foo"; print $x'
foo

$ perl -le'my $x = local ($s) = "foo"; print $x'
1

##</code><code>##

map( { print $_."\n" } @list );  # Block and no comma works.
map( print($_."\n"),   @list );  # Expression with comma works.

map { print $_."\n" } @list;     # Block and no comma works.
map print($_."\n"),   @list;     # Expression with comma works.

##</code><code>##

print "$_\n" for @list;