my $i = int(rand(length($str)-1));