#!/usr/bin/perl -w 

#open(IF,"focus");
#while($a=<IF>){
#$count{$a}++;
#}
open(IF,"../Cleveland/mjo_001A_S50_L005_R1_001.fastq");
while($a=<IF>){
$a=<IF>;
$x = substr($a,5,18);
#print "$x\n";
$count{$x}++;
$a=<IF>;
$a=<IF>;
}




foreach $a (keys %count){
print "$count{$a} $a\n";
}