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

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