Select Code to Download

my %count=();  # A hash -it is bcos of of key/value pairs?
...
}

my @data = map{ $count{$_} || 0 } qw(CLEAN SPAM INFECTED BANNED BAD-HE
+ADER REJECTED);
...

qw(CLEAN SPAM INFECTED BANNED BAD-HEADER REJECTED) # here you create a
+n array for count values?

my $data = GD::Graph::Data->new([
...

[@data] has count values coming from  line qw(CLEAN SPAM INFECTED BANN
+ED BAD-HEADER REJECTED)