Cleanup of subroutine templates in Perl snippets.

* fixed default sub (now with folding)
* renamed sub1 and sub2 to subc and subp