38  foreach $callid (sort keys %data1) {
    39  #   print " @{$data1{$callid}}\n";
    40      my $fields = join (/\s*/, @{$data1{$callid}});
    41      print "$fields\n";
    42  }
    43  close FH;