Select Code to Download

foreach my $i ( 0..$#data ) {
   push @{ $dataPos{ $data[$i] } }, $i;
   print "$data[$i] -- > $i\n";        
}

$VAR1 = {
' TOTAL QUALITY' => [ 8, 14 ],
...
'EDITED' => [ 12, 18 ],
'RUN ID AND DATE' => [ 7 ]
};