for my $letter ('A'..'Z') {
    my $file = "tmp/$letter.txt";
    open my $fh, '>', $file or die "No open > $file: $!";

    say $fh join "\t", 'Gene', map "exp$_", 1..10;

    for my $i (1..2000) {
        say $fh join "\t", $i, map "$letter-$i-exp$_", 1..10;
    }
}

##</code><code>##

Gene	exp1	exp2	exp3	exp4	exp5	exp6	exp7	exp8	exp9	exp10
1	A-1-exp1	A-1-exp2	A-1-exp3	A-1-exp4	A-1-exp5	A-1-exp6	A-1-exp7	A-1-exp8	A-1-exp9	A-1-exp10
2	A-2-exp1	A-2-exp2	A-2-exp3	A-2-exp4	A-2-exp5	A-2-exp6	A-2-exp7	A-2-exp8	A-2-exp9	A-2-exp10
...

##</code><code>##

@ARGV = <tmp/*.txt>;

my %row;

while (<>) {
    my ($gene, $exp4) = (split /\t/)[0,4];
    $row{$gene} .= "\t$exp4";
}

delete $row{Gene};

say "$_$row{$_}" for sort {$a <=> $b} keys %row;

##</code><code>##

1	A-1-exp4	B-1-exp4	C-1-exp4	D-1-exp4	E-1-exp4	F-1-exp4	G-1-exp4	H-1-exp4	I-1-exp4	J-1-exp4	K-1-exp4	L-1-exp4	M-1-exp4	N-1-exp4	O-1-exp4	P-1-exp4	Q-1-exp4	R-1-exp4	S-1-exp4	T-1-exp4	U-1-exp4	V-1-exp4	W-1-exp4	X-1-exp4	Y-1-exp4	Z-1-exp4
2	A-2-exp4	B-2-exp4	C-2-exp4	D-2-exp4	E-2-exp4	F-2-exp4	G-2-exp4	H-2-exp4	I-2-exp4	J-2-exp4	K-2-exp4	L-2-exp4	M-2-exp4	N-2-exp4	O-2-exp4	P-2-exp4	Q-2-exp4	R-2-exp4	S-2-exp4	T-2-exp4	U-2-exp4	V-2-exp4	W-2-exp4	X-2-exp4	Y-2-exp4	Z-2-exp4
...