$a='main';

if (1)
{
    my $olda = $a
    local $a = 'sub';
    print "$a\n";
    print "$olda\n";
}

print "$a\n";