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