{ package DB; sub DB {} sub sub {print ++$i, " $sub\n"; &$sub} }