my $length = length $str;