Here's the difference:

my $my  = 0;
$global = 0;
sub p { print "my = $my, global = $global\n" }
{
    local $global = 1;
    my    $my     = 1;
    p();
}
__END__
$ perl /tmp/p
my = 0, global = 1
$
[download]

Dave.