sub find_longest{
   my $longest = 0;
   for(@_){
       my $length = length($_);
       $longest = $length if($length > $longest);
   }

    return $longest;
}