数组 – 为什么这个随机哈希值选择器总是在第一次调用时返回相同

通过反复调用以下Perl脚本,我始终发现返回的第一个结果是相同的.返回的后续值是随机的：

use strict;
use warnings;
use 5.010;

my %hash = map { $_ => ord $_ } 'a' .. 'z';

say( (@_=%hash)[1|rand@_] ) for 1 .. 10;       # First value always 119

有趣的是,以下内容不会受此问题影响：

sub random_value { ( @_ )[ 1 | rand @_ ] }

say random_value %hash for 1 .. 10;            # First value is random

删除对@_的引用也可以解决问题：

say( (%hash)[1|rand keys %hash] ) for 1 .. 10; # First value is random

这已在Windows(ActivePerl 5.14.2)上测试过.

从表面上看,似乎设置@_与它有关,但我不确定.任何人都可以了解这里发生的事情吗？

编辑

我认为这个问题直到refp provided an update才得到解答.为什么arrayref形式没有遭受上面讨论的同样问题？ ：

[@_=%hash]->[1|rand@_] for 1 .. 10;            # First value is random