my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [@data],
]) or die GD::Graph::Data->error; 

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