$a = "one";
print $a, "\n";
routine();
print $a, "\n";

sub routine {
    local $a = "two";
    print $a, "\n";
}