perl增量标量因哈希值而失败

Question

我在if语句中增加哈希值时遇到问题。下面代码中的所有三个值都返回相同的数字。

     if (defined $hash{$this} && defined $$hash{$that} && defined $$hash{$this2} && defined $$hash{$that2})
     {
        $hash{$val1}{$val2}{Index} = $Index ;  
        ++$Index;
        $hash{$val1}{$val3}{Index}  = $Index ; 
        ++$Index;
        $hash{$val1}{$val4}{Index}  = $Index ;  #
        ++$Index;
        push (@Index,  "Index : ".$hash{$val1}{$val2}{Index}.", ".$hash{$val1}{$val3}{Index}.", ".$hash{$val1}{$val4}{Index});
     }

我如何确保每个索引值都是不同的数字？ 干杯