open (FILE, '<', 'prev.txt') or die "Can't open prev.txt\n";

while (<FILE>) {
   my @email = (split('\s',$_))[1..3];

   for (@email) {
       # send email
       # log results
   }
}