print "$duplicates{$_}\t$_" for grep $duplicates{$_} > 1,keys %duplicates;