perl_local.pl

#---------------------------------------------------------#
# Локализация пакетных переменных
our $l = 5; 
{
    local $l = 4; 
    say $l 
}; 
say $l;

#4
#5

#---------------------------------------------------------#
# Локализация переменных с лексической областью видимости
my $l = 5; 
{
    local $l = 4; 
    say $l
}; 
say $l;

# В результате получим ошибку
#Can't localize lexical variable $l at -e line 3.

#---------------------------------------------------------#
# Но возможна локализация элементов локально 
# объявленных массивов/хешей
my @l = (2,3,5); 
{
    local $l[2] = 4;
    say $l[2];
}; 
say $l[2];
#4
#5

#---------------------------------------------------------#
# Может быть полезно, например, в такой ситуации
{    
    local $h->{RaiseError}; # no RaiseError
    ...
}