foreach $email (@emails) {

      open(MAIL,"|$mailprog -t");
      
      print MAIL "To: $email";
      print MAIL "From: $myemail\n";
      print MAIL "Subject: test\n\n";
      
      LINE: foreach $requests (@requests) {
        until ($requests =~ "---------------------------------------------------------------------") {
            print MAIL "$requests";
            next LINE;
        } 
    close (MAIL);
      }
    }