#!/usr/bin/env perl

use strict;
use warnings;

use Data::Table;
use Path::Tiny;

# Load the tsv file with a header
my $dt = Data::Table::fromTSV('data.tsv', 1 );

# Get a Data::Table that contains only the first column
my $names_dt = $dt->subTable( undef, [ '<GSOR>' ] );

my $n_col = $dt->nofCol;
my @column_names = $dt->header;
for( my $i = 1; $i <= $n_col - 1; ++$i ){

    my $col_name = $column_names[ $i ]; 
    my $col_dt = $dt->subTable( undef, [ $col_name ] );
    my $new_dt = $names_dt->clone();
    $new_dt->colMerge($col_dt);

    my $file_name = "file_$i.tsv";
    my $fh = path($file_name)->openw_utf8;
    print {$fh} $new_dt->tsv;
    $fh->close;

}
exit;