$ perl -Mstrict -wE 'my @x = map my $x = $_, 2; say $x'
Use of uninitialized value $x in say at -e line 1.
$ perl -Mstrict -wE 'my $x; my @x = map $x = $_, 2; say $x'
2