push @{ $z->{$y->[$_]} }, $_ for 0 .. $#$y;