open my $hi, "<", "/in.CSV" or die $!;
open my $ho, ">", "/out.ins" or die $!;