# in some loop looking through files
if ($duplicate) {
   $data[$count]{VAl1} = $data[$count-1]{VAL1};
   $data[$count]{VAL2} = $data[$count-1]{VAL2};
   ...
   #flag data as being duplicate
   $data[$count]{VAL1} .= '/duplicate';
}
$data[$count]{VALX} = /(par)se_so(me)_(dat)a/;
next LOOP;