my $length=length($word);