my $root = { some_object => obj };
$root->{some_object} = new Object;
my $arrayref = $root->{some_object}->objectMethodReturningEmbeddedArrayref();
$arrayref->[0] = 5;
{
  local $arrayref->[0] = 0;
  # execute some code, which sees 0 not 5
}

# now array element is 5 again

##</code><code>##

# ...
$arrayref->[0] = 5;
# ...
{
  my $lcl = $arrayref->[0];
  $arrayref->[0] = 0;

  # execute some code, which sees 0 not 5

  $arrayref->[0] = $lcl;
}

# now array element is 5 again