print splice(@words, int rand @words, 1), $words2[int rand @words2], splice(@words, int rand @words, 1), $words3[int rand @words3],"\n";