Select Code to Download

ID    file1 file2 file3 file4 file5 file6......file25
ID21  ABC12 ABC12             ABC12            ABC12
ID22        XYZ11       XYZ11

#!/usr/bin/env perl
use strict;
...
        print join( "\t", $key, @{ $data{$key} } ), "\n";
    }
}