Select Code to Download

BEGIN {
    for my $nm (qw( io fm cv hv pvlv gv av bm pvmg pvnv pviv rv nv iv 
+pv sv )) {
        eval <<"B_SUGAR";
...
        push @EXPORT_OK, $nm;
    }
}

use tt ( subs => [qw( io fm cv hv pvlv gv av bm pvmg pvnv pviv rv nv i
+v pv sv )] );
[% FOREACH sub IN subs %]

...

[% END %]
no tt;