$ perl -e 'sub nonlvalue { return }; nonlvalue()=1;'
Can't modify non-lvalue subroutine call in scalar assignment at -e line 1, near "1;"