my $stringlen = length($string);