for my $key (keys %{$conn->tcp_connection->window->{dest}}){
my $cb = ${$conn->tcp_connection->window->{dest}}{$key};
print  $cb->{src_port} . "\n\n\n";
}