当键和值都是数组引用时,Perl哈希

我有一个问题,其中数字对映射到其他数字对.例如,(1,2) – >(12,97).有些对可以映射到多个其他对,所以我真正需要的是能够将一对映射到列表中,如(1,2) – >((12,97),(4,1)).在一天结束时,我想分别处理每个值(即每个列表列表).

在Python中,我可以通过简单地说：

key = ( x,y )
val = [ a,b ]
if (x,y) not in my_dict:
    my_dict[ (x,y) ] = []
my_dict[ (x,y) ].append( [a,b] )

但是,在Perl中,我必须使用refs作为键和值.所以我当然可以说：

$keyref = [ x1,y1 ]
$valref = [ a,b ]
%my_hash = { $keyref => $valref }

但是当另一对(x2,y2)出现时会发生什么？即使x2 == x1和y2 == y1,$keyref = [x2,y2]也会与之前生成的keyref不同,所以我看不到进行查找的方法.当然,我可以将(x2,y2)与每个解除引用的哈希键进行比较,但毕竟,上帝精确地给了我们哈希表以避免需要这样做.

有Perl解决方案吗？

谢谢,

-W.

$hash{$x1}{$y1} = [ $a,$b ];
# or
%hash = ( $x1 => { $y1 => [ $a,$b ] } );


($x2,$y2)=($x1,$y1);
print @{$hash{$x2}{$y2}};   # will print $a and $b