my $max = 0;
my @longest;
for $word( @words ) {
  my $length = length $word;
  if( $max < $length ) {
    $max = $length;
    @longest = ();
    push @longest, $word;
  }
  elsif( $max == $length ) {
    push @longest, $word;
  }
}