I am clearing out lines of data in a text file using a comparison between datestamps; Anything older than roughly 15 days gets deleted. Except that the line that is being deleted is not older than 15 days. Therefore I suspect that I am inadvertently deleting everything, but I know not why!!

open FH, '>', "$cuslist.tmp" or die "Can't open $cuslist.tmp: $!";

  my @files;
  my $count;
foreach my $line (@customerarray) {
  $count++;
    my ($memono, $cusref, $datestamp) = split '::', $line;

  if ( ($timestamp - $datestamp) > 1296000 ) {
    push (@files, $count);
    print FH "just pushed it!";
  }
}

if (@files) {
  foreach my $item (@files) {
    $customerarray[$item - 1] = undef;
  }
  
  foreach my $item (@customerarray) {
    if ($item) {
      print FH "$item\n";
    }
  }
}

close FH;
#rename("$cuslist.tmp", "$cuslist") or die "can't rename $cuslist : $!
+";
[download]