I:\>perl -MData::Dumper -e "$x = [1,2,3]; $y{$x} = 20; print Dumper(\%y)"
$VAR1 = {
          'ARRAY(0x224f10)' => 20
        };