open(LIST, "list.txt") or die $!;
my @files;
while(<LIST>) {
  s/^'//;
  s/'\n?$//;
  @files = split /','/, $_;
  my $email = shift @files;
  ### $email holds email, @files holds files, so put
  ### code here to send email accordingly 
}