my (@y,%y);

$y[3]=$y{3}=1;

say "keys \%y: ", join ",",keys %y;
say "keys \@y: ", join ",",keys @y;

##</code><code>##

keys %y: 3
keys @y: 0,1,2,3