lcvalues(@array1);
lcvalues(@array2);

sub lcvalues {
	for (@_) {
		if (ref $_ eq 'HASH') {
			lcvalues(values %$_);
		} elsif (ref $_ eq 'ARRAY') {
			lcvalues(@$_);
		} elsif (ref $_) {
			warn "Unknown data type: " . ref $_;
		} else {
			$_ = lc $_;
		}
	}
}