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

##</code><code>##

my $cgram = "@unigrams[ $i .. $i + 4]";