$op_map{$op_choice}->(@args); #### &{$op_map{$op_choice}}(@args); #### die "Unknown choice: $op_choice\n" unless my $cmd = $op_map{$op_choice}; #### my $default = 'OP1'; my $cmd = $op_map{$op_choice} || $op_map{$default}; #### $cmd->(); #### &$cmd; # see WARNING below