$VAR1 = [
          '2100', 
          [
            '2010-08-12',
            '12:23:56',
            'INFO',
            '2100',
            'some stuff, REPA0.prm:  Executing DDL operation.'
          ],
          '2100',
          [
            '2010-08-12',
            '12:23:56',
            'INFO',
            '2100',
            'some output, REP.prm:  DDL operation is of default scope.'
          ],

##</code><code>##

 %alertlog = map { $_->[0] => [ $_->[2], $_->[3], $_->[4], $_->[5], $_->[6] ]; }
          sort { Date_Cmp($a->[1], $b->[1]) }
          map
          {
            chomp;
            @loglines = split(/\s+/, $_, 5);
            $timestring = $loglines[0] . ' ' . $loglines[1];
            [ $loglines[3], (ParseDate($timestring), $loglines[0], $loglines[1], $loglines[2], $loglines[3], $loglines[4]) ];
          } @messages;

##</code><code>##

DUMP OF %alertlog from check_alertlog():
$VAR1 = {
          '109' => [
                     '2010-08-13',
                     '17:42:58',
                     'ERROR',
                     '109',
                     'some stuff, .... SQL <UPDAT...'
                   ],
          '190' => [
                     '2010-08-13',
                     '17:42:58',
                     'ERROR',
                     '190',
                     'another message '
                   ],
          '2100' => [
                      '2010-08-12',
                      '21:18:53',
                      'INFO',
                      '2100',
                      'another message...'
                    ]
        };

##</code><code>##

$VAR1 = [
          [
            '2100',
            '2010-08-12',
            '15:34:37',
            'INFO',
            '2100',
            'bunch of info:  Executing operation.'
          ],
          [
            '2100',
            '2010-08-12',
            '15:34:37',
            'INFO',
            '2100',
            'bunch of info:  operation is of unmapped scope.'
          ],
          [
            '2100',
            '2010-08-12',
            '15:34:37',
            'INFO',
            '2100',
            'bunch of info, REP.p:  Executing operation.'
          ],