my $poem = 
   # Line #1
     $words[0][rand @{$words[0]}] . " are "
   . $words[1][rand @{$words[1]}] . " "
   . $words[2][rand @{$words[2]}] . "?\n"

   # Line #2, etc...
;