Select Code to Download

my $csv = Text::CSV_XS->new ({ binary => 1 });
foreach my $line (@out) {
    my @f = $csv->parse ($line);
    @f > 10 and $f[9] = join ",", splice @f, 9, $#f;