sub print_stats{
 
  my $subinput = $_[0];

  for my $site1 (keys %siteInfo){
   
   #Site has to be in correct region
   next unless ($siteInfo{$site1}{region} eq $subinput); 
 
   print "$siteInfo{$site1}{region},$siteInfo{$site1}{country},$site1,
$siteInfo{$site1}{totalDevices}, ,$siteInfo{$site1}{totalVulns},
$siteInfo{$site1}{totalS5s},";
           
    }
  }
}