my @line = split(/\t+?/, $row);
my $part_number = $line[0];
my $part_desc = $line[1];
my $company1_price = $line[3];
my $company2_price = $line[5];
print Dumper $company1_price, $company2_price;
if (!$company1_price && !$company2_price) { 
	die "Entered if block\n";
	#next; 
} else {
	die "Entered else block\n";
	print $company1_file"$part_number\t$part_desc\t
              $company1_price\n";
	print   $company2_file "$part_number\t$part_desc\t
              $company2_price\n";			
}