Local element
#!/usr/bin/perl our @array=(1,2,3); { local $array[1]=4; print @array,"\n"; } print @array,"\n",