I agree that that scope is not what one expects.

ISTR that this is a "problem" Perl 6's new scoping rules take care of.