sub output_record {
  my $rec = shift;
  # print Dumper \$rec;

  my $MSISDN = $rec->{$key1}[0]; # single
  my @CF = @{$rec->{$key2}};     # multiple
  for (@CF){
    s{(CF.*-ALL-PROV)-NONE.*}{$1-1/1/1/0};
    s{(CF.*-TS10-(?:REG|ACT))-91(\d*).*}{$1-1/1/1/0-$2};
  } 
  print join $sep,$MSISDN,@CF;
  print "\n";
}