my $sh_str = reduce {length($a) < length($b) ? $a : $b} @str;