sub force_uc_hash {
	my $hashref = shift;
	foreach my $key (keys %{$hashref} ) {
		$hashref->{uc($key)} = $hashref->{$key};
		force_uc_hash($hashref->{uc($key)}) if ref $hashref->{$key} eq 'HASH';
		delete($hashref->{$key}) unless $key eq uc($key);
	}
}

sub force_lc_hash {
	my $hashref = shift;
	foreach my $key (keys %{$hashref} ) {
		$hashref->{lc($key)} = $hashref->{$key};
		force_lc_hash($hashref->{lc($key)}) if ref $hashref->{$key} eq 'HASH';
		delete($hashref->{$key}) unless $key eq lc($key);;
	}
}