my $longest =
   min
   map length,