#!/usr/bin/perl
use strict;
use warnings;

my %matrix;
my %sum;

#inport file names
my $fn = $ARGV[0];
chomp $fn;
open (my $FILE, $fn) or die "Can't open file \"$fn\"\n\n";

chomp(my @line = <$FILE>);
my $n;

for ($n=0; $n<scalar @line; $n++){
#open each kmer file
	open(my $KMER, $line[$n]) or die "Can't open file \"$line[$n]\"\n\n";
	my @kmers = <$KMER>;
	my @all_kmer;
	my $kmer;
	foreach $kmer (@kmers){
		my @split = split(/\s+/,$kmer); #obtain kmer reference number
		# for now we don't have to populate the big %matrix, commented 
		# $matrix{$n}{split[0]} = 1;
		$sum{$split[0]}++;
	}
	close $KMER;
}
close $FILE;

#creat outfile
my $outfile = $ARGV[1];
open (my $OUT, '>' .$outfile) or die "\nUnable to create $outfile\n";

#sum up
foreach my $k (keys %sum){
	print $OUT "$sum{$k}\n";
}