for ( my $x =0 ; $x < length($str); $x++)