my %conversations;

while (<DATA>) {
   my ($src, $dst) = (split)[0, 2];
   $src = pack('C4n', split(/[.:]/, $src));
   $dst = pack('C4n', split(/[.:]/, $dst));
   my $key = $src lt $dst ? "$src$dst" : "$dst$src";
   push(@{$conversations{$key}}, $_);
}

foreach (values %conversations) {
   print(@$_);
}

##</code><code>##

10.10.10.5:1001 -> 10.10.10.10:8000
10.10.10.5:1001 -> 10.10.10.10:8000
10.10.10.10:8000 -> 10.10.10.5:1001

10.10.10.6:1001 -> 10.10.10.10:8000
10.10.10.6:1001 -> 10.10.10.10:8000
10.10.10.10:8000 -> 10.10.10.6:1001

10.10.10.5:1000 -> 10.10.10.10:8000
10.10.10.5:1000 -> 10.10.10.10:8000
10.10.10.10:8000 -> 10.10.10.5:1000
10.10.10.10:8000 -> 10.10.10.5:1000
10.10.10.10:8000 -> 10.10.10.5:1000

10.10.10.6:1000 -> 10.10.10.10:8000
10.10.10.6:1000 -> 10.10.10.10:8000
10.10.10.10:8000 -> 10.10.10.6:1000

10.10.10.7:1000 -> 10.10.10.10:8000

##</code><code>##

while (<DATA>) {
   my ($src, $dst) = (split)[0, 2];
   my $key = $src lt $dst ? "$src $dst" : "$dst $src";
   push(@{$conversations{$key}}, $_);
}