while (<F>)
 {
  ($siteID, $siteAge, $siteDistance) = (split/,/)[0,1];
  $hash{$siteID} += $siteAge;
  $tot += $siteAge;
 }
 print $tot, "\n";