Trying format for output

Trying_printing.pl

#!/usr/bin/perl -w
use strict;
use warnings;

my (@proteins, @peptides);
my ($protein, $i, $j);
@proteins = qw(
    DAAAAATTLTTTAMTTTTTTCKMMFRPPPPPGGGGGGGGGGGG
    ALTAMCMNVWEITYHKGSDVNRRASFAQPPPQPPPPLLAIKPASDASD
    DAAAAATTLTTTAMTTTTTTCK
    );
for $protein (@proteins) {
    @peptides = split /(?<=[KR])(?!P)/, $protein;
}
for (@proteins){
	for ($i=0, $i<@proteins, $i++){
		print "> Protein: $i|Peptide: | No cleavages\n";
                print "$_\n" for @peptides;
	}
}
#Prints 9 times:
#> Protein: 1|Peptide: | No cleavages
#DAAAAATTLTTTAMTTTTTTCK