foreach (@data) {
   push(@$pos{$_},$i++);
}
foreach (keys %pos) {
   if ($#{$pos{$_}) {
      print join(" and ",map("\$data[$_]",@$pos{$_}))," have the same value: $_\n";
   }
}