my %actions = { 'BOND'=>\&do_bond,
                'SHARE'=>\&do_share }
if ( exists $actions{ $action } ) {
   my $err = &{ $actions{ $action } };
   if ( $err ne '1' ) {
      print $err;
   }
} else {
   print "Action is not defined.";
}