($one, $two) = (1,2);
{
    if (local ($one, $two) = qw(abc def)) {
        print "local inner  : $one $two\n";
    }
    print "local outer  : $one $two\n";
}
print "local outside: $one $two\n";

my ($a, $b) = (1,2);
{
    if (my ($a, $b) = qw(abc def)) {
        print "my inner  : $a $b\n";
    }
    print "my outer  : $a $b\n";
}
print "my outside: $a $b\n";

__END__

local inner  : abc def
local outer  : abc def
local outside: 1 2
my inner  : abc def
my outer  : 1 2
my outside: 1 2
[download]