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