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