@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;