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