...
my $count=0;
foreach my $i (@old_reflection) {
  chomp($i);
  ($old_writer,$old_title,$old_text) = split(/\ :: /,$i);
  # this is the same as $count = $count + 1;
  $count++;
}
....