使用来自多个子组的项来Perl所有排列

Question

我在perl中有一个哈希，说它有：

k1 = qw(a A)
k2 = qw(b B)
k2 = qw(c C)

我想要的是k1中的1个项目和k2中的1个项目以及k3中的1个项目的所有可能性，例如'a B c'，'A b C'等等

我怎样才能做到这一点？我尝试了Math::Combinatorics模块，但不是我想要的。