$len  = length( (sort {$a <=> $b} @s)[0]);