my $word = 'ABCDEFGH';
my @word = split //, $word;

my $pos = 1;
while (scalar(@word) >= 4) {
   print @word[0..3]."==> starting at $pos";
   shift @word;
   $pos++;
}