use strict;
use warnings;
my $sentence = "this is the text to play with";
my @string = split / /, $sentence;

my $ngramWindow_MIN = 2;
my $ngramWindow_MAX = 3;

for ($ngramWindow_MIN .. $ngramWindow_MAX){
	my $ngramWindow=$_;
	my $sizeString = (@string) - $ngramWindow;

	foreach (0 .. $sizeString){
		print "START INDEX: $_ :";
		print "@string[$_..($_+$ngramWindow-1)]\n"; 
	}
}