my $recordsize=160;
			my ( $portingID, $cli );
			
			print "${INFO}building hash table\t\t - '$infile'\n";
			until( eof(IN) ){
		        read(IN, my $data, $recordsize) == $recordsize
				$cli	  =substr($data, 0,9);
				$portingID=substr($data,30,6);
	
				$old_tab{ $cli } = $portingID if $filenum==1;
				$new_tab{ $cli } = $portingID if $filenum==2;
				$actld++;
		 	}
			close IN;