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