Select Code to Download

    ++$count{$2}; # Why ++$count? why {$2} here? is it bcos of (Passed
+|Blocked) ?

  } elsif (/amavis.*(BAD-HEADER)-/) {
    ++$count{$1}; # why {$1} here? is it bcos of (BAD-HEADER)

  } elsif (/reject/){
    ++$count{'REJECTED'}; #Hmm, Why {'REJECTED'}?
  }
}

my @data=();
$data[0] = $count{'CLEAN'} || 0; # use 0 if $count{'CLEAN'} is undefin
+ed 
...
$data[3] = $count{'BANNED'} || 0;
$data[4] = $count{'BAD-HEADER'} || 0;
$data[5] = $count{'REJECTED'} || 0;