while(<DATA>){
    chomp(my $record = $_);
    my @field = split /\,/, $record;
    print "$field[0],$field[10],$values[0],$field[1],$field[2]\n";
}

__DATA__
a,b,c,d,e,f,g,h,i,j,k
a,b,c,d,e,f,g,h,i,j,k