while (<>)
{
  if (!/^#+/)
  {
    ($source, $destination, $bytes) = split;
    $net_activity{$source}{$destination} += $bytes;
  }# ignore comments
}# read in each line of the net log