use strict;
use warnings;
use Data::Dump qw"pp";
use English;
 
my %HoA;
my @AoA;
 
while (<DATA>) {
  
  if (my ($id,$fromto)=/: (\w+): ((?:from|to)=<.*?>),/ ){
    $HoA{$id}=[$PREMATCH,$fromto,$POSTMATCH];
    @AoA[$.]=[$PREMATCH,$id,$fromto,$POSTMATCH];
  }else {
    warn "Couldn't parse <<<$_>>> at line $.";
  } 
}
 
pp(\%HoA);
pp(\@AoA);
 
__DATA__
Dec 8 08:49:21 b.mx.sonic.net sm-mta18242: jB8GnCuK018242: from=<cj@oreilly.com>, size=10731, class="0", nrcpts=2, msgid=<E4461FEB-1B74-4612-80DC-3A39B04D89B1@oreilly.com>, proto=ESMTP, daemon=MTA, relay=mwest.oreilly.com 209.204.146.24
Dec 8 08:49:21 b.mx.sonic.net sm-mta18528: jB8GnCuK018242: to=<mkirk@corp.sonic.net>,<dane@corp.sonic.net>, delay=00:00:00, xdelay=00:00:00, mailer=esmtp, pri=160731, relay=lds.sonic.net. 208.201.249.231, dsn=2.0.0, stat=Sent (jB8GnLpC004736 Message accepted for delivery)