$foo = {
   'case1' => \&sub_1,
   'case2' => \&sub_2,
   'case3' => \&sub_3,
};

$foo->{$bar{'action'}}->();