my $subcode = sub { for (1 .. $n) { local \$_; package $pack; $c;} }
  my $subref = eval $subcode;
  &$subref