my $cgram = join " ", $unigrams[$i], $unigrams[$i+1], $unigrams[$i+2],$unigrams[$i+3],$unigrams[$i+4];