foreach my $word(@four)
   {print"\n $word: ";
   my $length=length($word);
   print"\n Length of the word= $length\n\n";
} # there