sub SERVER_NAME() { 0 }
sub DATE() { 1 }
# ...
sub ERROR_TYPE() { 4 }
# etc.

while( <msg> ) {
  chomp ;
  @elements = split /,/ ;
  if( $elements[ERROR_TYPE] eq 'ERROR' ) {
    # handle error
    next ;
  } 
}