foreach $Line (<TESTFILE>) {
    if ($Line =~ m/To\s*=\s*(.*)/) {
        push(@To,$1);
        print "To = <@To>\n";
    }
}

$Sender->OpenMultipart({
        to      => \@To,
        subject => "$Subject",
        });