How about this?

Only thing is when I include:

use warnings;
[download]

I get the following errors:

Use of uninitialized value in string eq at ./delete_list_ver2.pl line 
+27.
Use of uninitialized value in print at ./delete_list_ver2.pl line 37.
[download]

    
    # open files, read into array, sort array
    open (ORGLIST, "<", $ARGV[0]);
    open (DELLIST, "<", $ARGV[1]);
    my @orgList = <ORGLIST>;
    my @delList = <DELLIST>;
    close ORGLIST;
    close DELLIST;
    @orgList = sort(@orgList);
    @delList = sort(@delList);
    
    # counter for entries removed
    my $j = 0;
    # iterate through @delList
    foreach my $line (@delList){
        # iterate through @orgList
        for ( my $i = 0 ; $i < @orgList ; $i++ ){
            # if found delete from array 
            if ($line eq $orgList[$i]){
                $j++;
                delete $orgList[$i];
                
            } # end if
        } # end for
     } # end foreach   
    
    print "Entries Removed: $j \n";
    open ( NEWORGLIST, ">", "test.out");
    print NEWORGLIST @orgList;
    close (NEWORGLIST);
    
    unlink @orgList; unlink @delList;
[download]