$ perl -E 'say scalar(() = ($a, $b, $c))'
               |      |
                \      \_____ is a list?
                 \
                  \__________ enforces scalar context?

                     ?_______ second list assignment?