sende dele af form til forskellige modtagere?

Jeg har et system med en indkøbskurv.
De enkelte linier i denne skal sendes til forskellige modtagere.

Jeg har prøvet noget lignende dette:
--------------------------
#!/usr/bin/perl
print "Content-type:text/html\n\n";
$mailprog = '/usr/sbin/sendmail';

$redirect = 'http://www.detdomaine.dk/tak.html';

$haslemail = 'hasle@xxx.dk';
$fredbmail = 'fred@xxx.dk';

read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
    ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ s/~!/ ~!/g;
    $FORM{$name} = $value;
}

########### modtager1############

open (MAIL, "|$mailprog -t") or dienice("Can't access $mailprog!\n");
print MAIL "To: $haslemail\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'navn'})\n";
print MAIL "Subject: CYKEL BOOKING\n\n";
print MAIL "$FORM{'navn'}\n$FORM{'Adresse'} \n$FORM{'Postnr'} $FORM{'By'}\n$FORM{'Land'}\n$FORM{'Telefon'} $FORM{'Fax'}\n$FORM{'email'}\nbestiller følgende ophold hos modtager1...\n\n";
foreach $key (keys(%FORM)) {
if ($FORM{$key} =~ /hasle/i){
    print MAIL "$key = $FORM{$key}\n\n";
    }
}
close(MAIL);

########## modtager2############

open (MAIL, "|$mailprog -t") or dienice("Can't access $mailprog!\n");
print MAIL "To: $fredbmail\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'navn'})\n";
print MAIL "Subject: CYKEL BOOKING\n\n";
print MAIL "$FORM{'navn'}\n$FORM{'Adresse'} \n$FORM{'Postnr'} $FORM{'By'}\n$FORM{'Land'}\n$FORM{'Telefon'} $FORM{'Fax'}\n$FORM{'email'}\nbestiller følgende hos modtager2 ...\n\n";
foreach $key (keys(%FORM)) {
if ($FORM{$key} =~ /griffen/i){
    print MAIL "$key = $FORM{$key}\n\n";
    }
}
close(MAIL);

..........osv

dette sender en mail uanset om der er indhold eller ej.

Jeg ved ikke, hvordan sendmail virker er det nødvendigt at åbne og lukke det for hver mail?

Og er der en smart måde at få delt posten op og sendt ud på?