$ perl -wE 'my @a = (1, 2, 3); {local $a[1] = 7; say "@a";} say "@a"'
1 7 3
1 2 3