It's not clear that changing packages counts as a scope since it doesn't affect lexical variables:

package SomePackage;
my $foo = "bar\n";
package main;
print $foo;  # prints 'bar'
[download]

I could be wrong about the formal definition of a "scope", though. We'll have to leave that up to the judge. :)