Select Code to Download

    if ( defined $messages{$id}{to} ) {
        $messages{$id}{to2} = $to;
    } else {    
        $messages{$id}{to} = $to;
    }

push @{$messages{$id}{to}}, $to;

#!/usr/bin/perl
use warnings;
...
Nov 16 10:28:52 smtp3 postfix/smtp[19429]: 883822080A4: to=<carols@the
+irdomain.com.au>, relay=mailhost.theirdomain.com.au[203.x.x.x], delay
+=1, status=sent (250 Message queued)
Nov 16 10:28:52 smtp3 postfix/smtp[19429]: 883822080A4: to=<daleb@thei
+rdomain.com.au>, relay=mailhost.theirdomain.com.au[203.x.x.x], delay=
+1, status=sent (250 Message queued)
Nov 16 10:28:52 smtp3 postfix/qmgr[9315]: 883822080A4: removed