my $saved_foo_3 = $foo[3];
$foo[3] = 'bar';
# .. rest of the block here ..
$foo[3] = $saved_foo_3;