$ perl -wle'
{
   my %tags = (
       a       => \&anchor_handler,
   );
                                  
   sub dispatcher {
       my ($self, $attributes, $tagname) = @_;
       if (exists $tags{$tagname}) {
           $tags{$tagname}->($self, $attributes);
       }                                         
   }                                             
}       
sub anchor_handler { print "sub anchor_handler(@_)" }
dispatcher("self","attr","a");'
sub anchor_handler(self attr)
$