#!/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];
}

##</code><code>##

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

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

my %requests = (
  'firstemailaddress@com' => 
    "first lot of info\n------------------------------------------\n",
  'secondemailaddress@com' =>
    "second lot of info\n------------------------------------------\n"
	);

foreach my $email (keys %requests) {

	print "To: $email\n";
    print "From: $myemail\n";
    print "Subject: test\n\n";
      
    print $requests{$email};
}