push @{$YPos->{$_}}, $index++ for @$Y;