use vars %documentation;

sub doc($$) {
    my ($for,$doc) = @_;
    $documentation{ $for } = $doc;
};

doc('mysub1',<<'=cut');

=head2 C<< mysub1 >>

This documents mysub1. An example:

  mysub1();

=cut

sub mysub1 {
    ...
};

doc('frobnicate',<<'=cut');

=head2 C<< frobnicate >>

This documents frobnicate. An example:

  frobnicate();

=cut

sub frobnicate {
    ...
};