See Tie::Hash::FixedKeys , Params::Validate , and Getargs::Long for things that might help.

Using any of these to fix your problem at hand wouldn't be much easier than what you're doing now, though.