while(my $line = <FP> ){
        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";
    }
[download]