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