use strict; 
use warnings; 

my $infile="clients.txt";  
 
open my $in,  "<", $infile     or die $!;
open my $out, ">" , "clients.csv" or die $!; 

my $client = <$in>; 

chomp($client);