Select Code to Download

foreach $srcip (keys(%srciphash))

foreach $dstip (keys(%{$srciphash{$srcip}}))

$srciphash{$srcip}{$dstip} = 1;

my %srciphash = (
  foo => { one => undef },
...
$srciphash{foo}{one} = 1
$srciphash{baz}{three} = 1
$srciphash{bar}{two} = 1