foreach $callid (sort keys %data1) {
     my @fields = @{$data1{$callid}};
     for my $element (@fields) {
     $element =~ s/\s+//g;
     print "$element";
     }  
     print "\n";
}
[download]