Select Code to Download

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

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

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

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

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

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