#! perl -slw
use strict;
use Data::Dump qw[ pp ];

## Assumes that the IDs file consists of space separated lines
## zero-based-column-no-in-data-file zero-based-fileno-destination
open IDS, '<', 'ids.map' or die $!;
my %ids = map{
    my( $columnNo, $fileNo ) = split;
    $columnNo -= 10; ## adjust column numbers
    ( $columnNo, $fileNo );
}<IDS>;
close IDS;
chomp %ids;

## for each data filenmae supplied on the command line
for my $filename ( @ARGV ) {

    ## open that file for input
    open IN, '<',.$filename or die $!;

    ## open 4 output files named as $filename.out.n
    my @outs;
    open $outs[ $_ ], '>', "$filename.out.$_" for 0 .. 3;

    ## read the data file line by line
    while( <IN> ) {

        ## split the line into fields -- assumes sane csv definition
        my @fields = split '\s*,\s*', $_;

        ## print the first 10 fields to each of the 4 files
        ## and remove them from the @fields array
        printf { $outs[ $_ ] } "%s, ",
            join ', ', splice @fields[ 0 .. 9 ]
            for 0 .. 3;

        splice @fields, 0, 9;

        ## for each of the output files
        for my $fileNo ( 0 .. 3 ) {

            ## print those fields ...
            print { $outs[ $fileNo ] } join ', ', @fields[

                ## that are mapped to this file
                grep{
                    $ids{ $_ } == $fileNo
                } 0 .. $#fields
            ];
        }
    }
    ## cleanup
    close $outs[ $_ ] for 0 .. 3;
    close IN;
}