my $start = 0;
my $end = 4;
while ( $end <= $#array ) {
    my $string = join( "", @array[$start..$end];
    if ( $string eq 'PHAGE' ) {
        print "$string found in elements $start .. $end\n";
    }
    $start += 5;
    $end += 5;
}