while(<INA> ) {
	....
        ...
	} else {....
			}
	}
	print "$A,$B,n/a\n" if $i==0