INVITE   100  180  200
INVITE   503 ACK

##</code><code>##

foreach $callid (sort keys %data1) {
     my @fields = join('', split(/[ +\t]/, @{$data1{$callid}}));
    print "@fields\n";
}