sub sitecounter {
  my @sites = @_;
  my(@sitepopularity);
  my($s,$site,@sitessorted,@validsites,@tmp);
  @sitessorted = sort @sites;
  foreach $site (@sitessorted){
    push @validsites, $site unless $validsite[-1] eq $site;
  }
  foreach $site (@validsites){
    foreach $s (@sites){ push @tmp $s if $site eq $s; }
    push @sitepopularity ($site, #@tmp);
  }
  return @sitepopularity;
}