use strict;
use warnings;
use CGI  qw/:standard/;
my $name = ...;    # param('name') maybe?
my $email = ...;   # param('email') maybe?
foreach my $cnt ( 1.. 5 ){
  my $fmail = param('fmail'.$cnt);
  my $fname = param('fname'.$cnt);
  next unless $fmail && $fname;
           open(MAIL,"| $sendmail") or die "Can't open sendmail $!";
         print MAIL "To: $fmail\n";
         print MAIL "From: $email\n";
         print MAIL "Subject: Refer A Friend\n";
         print MAIL "Dear $fname,\n\n";
         print MAIL "Your friend, $name at $email, visited out site recently and thought you would be interested..\n\n";
         print MAIL "This is NOT spam. This email was sent by someone who said they knew you.  Your email address is not stored in any databases and will not be sold or given to anyone at any time.  This is the only time you will receive an email from us.";
         close(MAIL);
}