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

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