my $tot;

foreach my $key1 ( keys %seen ) {
    if ( @{ $seen{$key1} } >= $file_count ) {
        $tot = 0;
        for my $val ( @{ $seen{$key1} } ) {
          # $tot += ( split /:/, $val )[0];
            $tot += $val; # Perl ignores the string after number
        }
        print join "\t", @{ $seen{$key1} };
        print "\tcount:". $tot."\n\n";
    }
}