my $longest = 0;
foreach(@words){
  $longest = length($_) if(length($_) > $longest);
}