#!/usr/bin/perl

use strict;
use Tie::File;

my @parsedfiles;
my $n_files;

if (-e "last_processed.log") {
 tie @parsedfiles, 'Tie::File', "last_processed.log";
 n_files = @parsedfiles;

 if($n_files>=10) {
   for(my $i=0; $i<5; $i++) {
     delete $parsedfiles[$i];
   }
 }
 untie @parsedfiles;