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