my $file_count = @ARGV;
foreach my $key1 ( keys %seen ) {
    if ( @{ $seen{$key1} } >= $file_count) {
        print join( "\t", @{$seen{$key1}});
        print "\n\n";
    }
}