#!/usr/bin/env perl

use strict; 

open(FILE1, "num_consol.orig");
open(FILE2, "num_status_43.out");
open(OUT, ">>new_num.lst");

for $file1 (<FILE1>){
	chomp $file1;
	open(FILE2, "num_status_43.out");
	for file2 (<FILE2>){
		chomp $file2;
		if ($file1 ne '$file2'){
			$cnt++;<br>
			print OUT "$file1\n";	
		}			
	}
}
close OUT;