#! perl -slw
use strict;

my @foo = 1..9;
{
	local $foo[3] = 'modified';
	print "@foo";
}
print "@foo";
__END__
C:\test>temp
1 2 3 modified 5 6 7 8 9
1 2 3 4 5 6 7 8 9