#!/usr/bin/perl -w
use strict;

my $myemail = qw( chrisbarton@perlmonks.com );
my @emails = qw( firstemailaddress@com secondemailaddress@com);

my @requests = (
	"first lot of info\n------------------------------------------\n",
	"second lot of info\n------------------------------------------\n"
	);

for( my $i=0; $i<= $#emails; $i++ ){

	print "To: $emails[$i]\n";
    print "From: $myemail\n";
    print "Subject: test\n\n";
      
    print $requests[$i];
}