> cat a aa ab aaa aaaa > cat b ab bb bbb bbbb > perl -ne 'BEGIN{ $v=1 ; @A=@ARGV }; chomp; $c{$_}+=$v; $v=-1 if eof; END { foreach (sort keys %c) { print $c{$_}>=0 ? "$A[0] " : "- "; print $c{$_}<=0 ? "$A[1] " : "- "; print " : $_\n" }}' a b a - : aa a - : aaa a - : aaaa a b : ab - b : bb - b : bbb - b : bbbb