I think you need to split each line into an array and pass the array reference to print into the out file.

my $csv = Text::CSV->new ({ binary   => 1,   eol => "\n" });

open(my $out,">>",$outfile);

open (CSV, "<", $file) or die $!;

while(<CSV>)
{
my @array=split /\s+/;
$csv->print($out,\@array);
}
[download]