$dispatch{'sub_one'}->('arg');
$dispatch{'sub_two'}->('arg');
[download]

works for me in 5.005_03.

Liz