OP should look into Getopt::Euclid. It will provide to specify optional "sub options", in terms of plain old strings. Based on presence of those strings, run the code as you would desire. I would guess one would access a sub option, for example, as $ARGV{-input}->{-nd}.

I personally do not want to deal with G::Euclid due to much stuffing of POD.

Can you suggest any other idea on how can I achieve it?any idea which parser can do that?perl cannot do that?

There probably isn't an existing one. Your needs are unique. (Which should lead you to question them!)