in reply to doubts about Data::Dumper output
BTW, you can simplify the assignment by dropping the cast and dereference:
$dispatch{a} = $dispatch{original_a}; [download]