push @{$dataPos{$data[$_]}}, $_ for 0 .. $#data;