$ perl -E'say map { scalar( $_, $_ ) } 4;'
4

$ perl -E'say map { $_, $_ } 4;'
44

##</code><code>##

$ perl -E'say scalar map { scalar( $_, $_ ) } 4;'
1

$ perl -E'say scalar map { $_, $_ } 4;'
2

##</code><code>##

$ perl -E'@a = sub { map { say wantarray // "undef" || 0 } 1; 1 }->()'
1

$ perl -E'$a = sub { map { say wantarray // "undef" || 0 } 1; 1 }->()'
0

$ perl -E'     sub { map { say wantarray // "undef" || 0 } 1; 1 }->()'
undef