Perl如何处理标量变量的哈希赋值？

Question

有人能解释一下这段代码在后台发生了什么吗？ 代码：

%d=('sa',1);
$x=%d;
print "$x";

输出：

1/8

代码2：

%d=('sa',1,"da"=>2,"daa",3);
$x=%d;
print "$x";

输出：

3/8