perl -e '@a = map {$_+=1 } (1..3); print "@a\n";'  # OK

perl -e '@a = map {$_+=1 } (1,2,3); print "@a\n";' # Modification of a read-only value attempted at -e line 1.