my $maxstr = gen_reduce { 
   return length($_[0]) > length($_[1]); 
   }