Select Code to Download

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

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

for (<$file>)

while ( <$file> )

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

my ( undef, undef, undef, $host, undef, undef, undef, undef, undef, $s
+ervice, @INFO ) = split;

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

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