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;

##</code><code>##

~/script/perl/temp@myserver1 >./program file1
There were 0 which could not detect
 INVITE  100 180 200 ACK  BYE  200
 INVITE  100 180 200
 180 200 ACK  BYE  200

##</code><code>##

There were 0 which could not detect
Use of uninitialized value at ./perl.m2 line 40, <FH> chunk 32.
INVITE 1100118012001ACK 1BYE 1200
Use of uninitialized value at ./perl.m2 line 40, <FH> chunk 32.
INVITE 110011801200
Use of uninitialized value at ./perl.m2 line 40, <FH> chunk 32.
18012001ACK 1BYE 1200