Select Code to Download

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