open my $OUT, '>', $peptstr1 or die "Cannot open '$peptstr1' because: $!";
open my $IN,  '<', $genpept  or die "Cannot open '$genpept' because: $!";