It will take refactoring, but should be worth it in the long run, to use something like Class::Accessor or similar (see the "SEE ALSO" section).. That will provide you with methods for each of your attributes so that you don't have to (and be sure to find/replace everything) use the typo-suspectible hash keys.

package Foo;
use base qw(Class::Accessor);
__PACKAGE__->mk_accessors(qw( Find confCode db Find type ));
sub demo {
  my $self = shift;
  print STDERR join "\n", $self->Find->{baseUrl}, $self->confCode, $se
+lf->db, $self->Find->{userName};
  printf "type = %s\n", $self->type;
}
[download]