open$x,pop;@x=map{chomp;$_}<$x>;pop@x;map{chomp;$x{$_}++}<>;print map{$_,$",$x{$_}||0,$/x2}@x