My most common use of local deals with recursive method calls:

sub foo {
  my $self = shift;
  local $self->{some_val} = $self->get_val;
  # do a bunch of stuff
  $self->foo;
}
[download]

This seems strange, but I do find this useful at times. It allows me to temporarily overwrite a value which needs to be preserved for a given stack frame.