use strict;
use warnings;

my $clientList = <<DATA;
fred
bob
DATA

my $backupData = <<DATA;
joe,2,3,wilma
fred,1,3,wilma
bob,2,3,freda
freda,7,2,fred
DATA

my $outputData;

open (my $clientsFile, '<', \$clientList) || die "Can't open clients: $!\n";
my @clients = <$clientsFile>;
close $clientsFile;
chomp @clients;

my $match = '\b(?:' . (join '|', @clients) . ')\b';

open (file_compare, '<', \$backupData)
    || die "Can't open file_compare: $!\n";
open (CSV_OUT, '>', \$outputData) || die "Unable to open lastbackup.csv: $!";
print CSV_OUT "SERVER,CLIENT,LAST SUCCESSFUL FULL,LAST SUCCESSFUL INCR,LAST ATTEMPT\n";

while (<file_compare>) {
    if (m/$match/) {
        print CSV_OUT "$_";
    }
}

close CSV_OUT;
close file_compare;
print $outputData;