foreach $entry (@entries) {
  $info = '(some).*(snazzy).*(regexp)';
  ($time,$src,$dst) = ($1,$2,$3) if $entry =~ /$info/;
  $src =~ s/SRC=//g;
  $dst =~ s/DST=//g;

  %ips = ( $src => "$dst");
  foreach $ws (keys(%ips)) {
    push @ips, $ips{$ws};
    #%visit_count = ( $src => $cnt );
    #%src_dst_cnt = ( $ws => \$visit_count );
  }
}

$count{$_}++ for @ips;
print "$_\t visits: $count{$_}\n" for (keys(%count));
return @ips;