my $procount2 = 1;

foreach my $readingframe2(@protein){
    my $protein;
    print "string is $readingframe2\n";
    
    my $fada;
    if($readingframe2 =~ /MHGR/){
        print "$1\n";
        ($protein)= $readingframe2 =~ /MHGR/;
        $fada = length($protein);
        print "motif is $protein\n";
        if($fada >=1){
           print "length of motif is $fada\n";
           print OUT1 "Protein $procount2\n$protein\n";
           $procount2++;
        }
    }
}