Select Code to Download

 my $accessors = { map ({$_=>{TYPE=>'getter',CODE=>undef}} qw |my gett
+er names| ),
                   map ({$_=>{TYPE=>'setter',CODE=>undef}} qw |setter 
+names2|)
              };

for (keys %$accessors){
 if ($accessor->{$_}{TYPE} eq 'getter'){
...
 }else{
   .. setter ...
 }