Variable "$x" will not stay shared at a.pl line 8.
4
4    # XXX Want 5.
4    # XXX Don't want inner sub to be public