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