${$accessors->{$name}} is equivalent to ${'getter'} so it is meaningless.

I would suggest restructuring your my $accessors (untested):

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

Then set the CODE values:

for (keys %$accessors){
 if ($accessor->{$_}{TYPE} eq 'getter'){
    $accessor->{$_}->{CODE} = sub {set code};
 }else{
   .. setter ...
 }
[download]