my $foo = 10;
$bar = 10;

sub somelocals {
   my $foo = 42;
   local $bar = 42;
   # "x $foo", "x $bar" are 10 here
}
somelocals();