Select Code to Download

 
#build up the hash CF
    if (/CF/){
...
       $hash{CF} = $tmp[1];
        #say $hash{CF};
   }

   #PROBLEM CODE check CF fields need to accommodate for multiple CF l
+ines 
   if (exists $hash{CF})
...
         $line .= ",$add";
       
   }

<BEGINFILE>
<SUBBEGIN
...
    ODBPREMSMS=NO;
    ODBADULTSMS=YES;
<SUBEND

#!/usr/bin/perl
use strict;
...
close INFILE;
close OUTFILE;