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