#!perl
use strict;
use warnings;
use Data::Dumper; $Data::Dumper::Purity =1;

my %dispatch = (
    original_a => sub {print "AAA\n"},
);

$dispatch{a}=\&{$dispatch{original_a}};

print Dumper(\%dispatch);