open(clients, "<clientlist.txt") || die "Can't open clients: $!\n";
open(file_compare, "<client_last_backup.csv") || die "Can't open file_compare: $!\n";
open(CSV_OUT, "> lastbackup.csv") || die "Unable to open lastbackup.csv: $!";
print CSV_OUT "SERVER,CLIENT,LAST SUCCESSFUL FULL,LAST SUCCESSFUL INCR,LAST ATTEMPT\n";
my @clients = "";
LOOKUP: while(<clients>)
{
	@clients = $_;	
$client = shift @clients; 
	chomp $client;


	CLIENTS: while (<file_compare> )
	{
		if (m/$client/)
		{		
		print CSV_OUT "$_";
	}
#print CSV_OUT "$client";	
}