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

##</code><code>##

#!/usr/bin/env perl
use strict;
use warnings;
my %data;

while (<>) {
    my ( $key, $value ) = split;
    push( @{ $data{$key} }, $value );
}

foreach my $key ( sort keys %data ) {
    if ( @{ $data{$key} } >= @ARGV ) {
        print join( "\t", $key, @{ $data{$key} } ), "\n";
    }
}