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