$sitePerf = 'siteperf.txt';
 $tot = 0;
 open(F, "$sitePerf") || die ("Could not open $sitePerf!");
 while (<F>)
 {
  ($siteID, $siteAge, $siteDistance) = (split/,/)[0,1];
  $tot = $hash{$siteID} += $siteAge;
  print $tot;
 }
 close (F);