$ 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