my $maxstr = gen_reduce { 
   return length($^left) > length($^right); 
   }