while(...)
{
    my @sentence = ();
    
    for (1..$random_sentence_length)
    {
        do 
        {
            $next_word = random_word_generator();
        } while(not grammar_correct(@sentance, $next_word);
        push @sentance, $next_word;
    }
    
    print @sentance;

}