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

my @array    = split //, "PHAGEPHAGEPQKREPHAGEPWSQEPHAGEPRDLEPHAGE";
my @subarray = split //, "PHAGE";

my $offset   =  0;
my $count    =  0;

NAKED:
	{
	foreach my $index ( 0 .. $#subarray )
		{
		next if $array[ $offset + $index ] eq $subarray[ $index ];
		$offset += 1;
		redo NAKED;
		}
	
	print "Found @subarray at $offset\n";
	$count++;

	$offset += @subarray;
	last if $offset + @subarray > @array;
	
	redo;
	}
	
print "Found $count instances of @subarray\n";

__OUTPUT__
Found P H A G E at 0
Found P H A G E at 5
Found P H A G E at 15
Found P H A G E at 25
Found P H A G E at 35
Found 5 instances of P H A G E