# Define our buckets for collecting data
my %bucket  = ();
my %USER    = ();
my %VIRUS   = ();
my %SPAM    = ();

##</code><code>##


# These numbers must be valid reason codes...
my @wanted = ( 1, 60 );

##</code><code>##


for (<$file>)

##</code><code>##

while ( <$file> )


##</code><code>##


    chomp;    

    my ( $month, $day, $time, $host,
         $process, $clientIP, $MessageID,
         $timeStart, $timeEnd, $service, @INFO ) = split /\s+/;

##</code><code>##

my ( undef, undef, undef, $host, undef, undef, undef, undef, undef, $service, @INFO ) = split;


##</code><code>##


        $USER{$host}{$recip}{$action{$service}{$action_}}{$reason{$reason_}}{'count'}++;
            #if ( grep /^$reason_$/, @wanted );

##</code><code>##

        $USER{$host}{$recip}{$action{$service}{$action_}}{$reason{$reason_}}{'count'}++;
            #if exists $wanted{ $reason_ };