map {
  my ($src, $dst) = (split)[0,2];
  my ($src_port) = $src =~ /:(\d+)/;
  ($src, $dst) = ($dst, $src) if $dst lt $src;
  [ "$src-$dst", $src_port, $_ ]
}