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

##</code><code>##

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

##</code><code>##

while (my $records = <IN>){
    #$i++;
    chomp $records;
    my @genpept;
    push @genpept,($records); 
    print"Processed infile record: $.\n";
    foreach(@genpept){
        print "$_";
    }
}