open(FILE,"peptides.txt");
@peptides=<FILE>;
%seen=();
@unique=grep{! $seen{$_} ++} @peptides;