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 : $!";