--- sa-stats.orig	2009-11-09 11:07:18.000000000 -0500
+++ sa-stats	2009-11-09 10:56:17.000000000 -0500
@@ -287,23 +287,24 @@
   &hr;
   foreach my $key (sort { $HAM_RULES{$b} <=> $HAM_RULES{$a} } keys %HAM_RULES) {
     #my $perc1=sprintf("%.2f",($HAM_RULES{$key}/$NUM_EMAIL)*100);
+    my( $perc1, $perc2, $perc3 );	# these need to be out in this scope
     if ($NUM_EMAIL > 0) {  
-       my $perc1=sprintf("%.2f",(($SPAM_RULES{$key}+$HAM_RULES{$key})/$NUM_EMAIL)*100);
+       $perc1=sprintf("%.2f",(($SPAM_RULES{$key}+$HAM_RULES{$key})/$NUM_EMAIL)*100);
     }
     else {
-       my $perc1=sprintf("%.2f",0);
+       $perc1=sprintf("%.2f",0);
     } 
     if ($NUM_SPAM > 0) {  
-       my $perc2=sprintf("%.2f",($SPAM_RULES{$key}/$NUM_SPAM)*100);
+       $perc2=sprintf("%.2f",($SPAM_RULES{$key}/$NUM_SPAM)*100);
     }
     else {
-       my $perc2=sprintf("%.2f",0);
+       $perc2=sprintf("%.2f",0);
     } 
     if ($NUM_HAM > 0) {  
-    my $perc3=sprintf("%.2f",($HAM_RULES{$key}/$NUM_HAM)*100);
+    $perc3=sprintf("%.2f",($HAM_RULES{$key}/$NUM_HAM)*100);
     }
     else {
-       my $perc3=sprintf("%.2f",0);
+       $perc3=sprintf("%.2f",0);
     } 
     printf("%4d\t%-24s\t%5s\t%6.2f\t%6.2f\t%6.2f\n",$count+1,$key,$HAM_RULES{$key},$perc1,$perc2,$perc3);
     $count++;