Interesting?

use 5.010;
my @x = ("x" => 1);
my $y = \@x;
my $z= $#@x[1];
say length $z;
[download]

returns 22653312 (or other "random" large number) So not a loop as such.