open(my OUT,">$peptstr1")  or die  $!;
open(my IN,$genpept);