perl -ane "push@{$h{$F[0]}},$_;END{while(($k,$v)=each%h){print@{$v}if@{$v}>1}}" dat1.txt dat2.txt