# 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;