while(<$fi>){
        chomp;
	print CSV $_, scalar <$fa>, scalar <$fb>, scalar <$fc>;
}