while(my $line = ){ chomp ($line); if ($line){push (@dirlist, $line);} } close FP; #remove last 5 builds from the purge list for(my $i=0; $i < 5; $i++){ my $temp = pop @dirlist; print "Skippping: $temp\n"; }