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