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

##</code><code>##

my($one_line) = '';
while ($one_line = <>)
{
  if ($one_line =~ !/^#+/)
  {
    ($source, $destination, $bytes) = split(/ /, $one_line);
    $net_activity{$source}{$destination} += $bytes;
  }# ignore comments

}# read in each line of the net log

##</code><code>##

Use of uninitialized value in pattern match (m//) at ./net_traffic2 line 14, <> line 5.