### begin_: init perl
    use strict;
    use warnings;
    my  $app;

### begin_: call our 'Clone Generator'
    CloneSubroutines();

### begin_: print some results
    print $app->{show_tag_a}('alpha') . qq'\n';
    print $app->{show_tag_b}('bravo') . qq'\n';
    print $app->{show_tag_c}('charlie') . qq'\n';
    print $app->{show_tag_g}('delta') . qq'\n';
    ### ---
    print &main::show_tag_e('echo');
    print show_tag_f('foxtrot');

### begin_: declare our 'Clone Generator' subroutine
    sub CloneSubroutines
    {
        ### simple example; create different types
        ### of 'tags' using perl data variables
        $app->{tag_a} = ['<a>', '</a>'];
        $app->{tag_b} = ['<b>', '</b>'];
        $app->{tag_c} = ['<c>', '</c>'];
        $app->{tag_d} = ['<d>', '</d>'];
        $app->{tag_e} = ['<e>', '</e>'];
        $app->{tag_f} = ['<f>', '</f>'];
        $app->{tag_g} = ['<g>', '</g>'];

        ### auto-generate (Clone) numerous subroutines
        ### based on a single subroutine template
        ### BUGNAG: must use no strict 'refs' pragma
        for my $tag (sort keys %{$app})
        {
            no strict 'refs';
            my  $functionName =  qq'show_$tag';
            ### clone subroutines 
            $app->{$functionName} =
            sub 
            {
                my  $beg    = $app->{$tag}[0];
                my  $end    = $app->{$tag}[1];
                my  $mid    = shift || '';
                my  $strOut = '';
                $strOut = qq'$beg$mid$end';
                return $strOut;
            };

            ### copy subroutines
            *$functionName = $app->{$functionName};
        }
    }###end_sub


1;
__END__
<a>alpha</a>
<b>bravo</b>
<c>charlie</c>
<g>delta</g>
<e>echo</e><f>foxtrot</f>