my $word = undef;