my $ranWord = join("",@word);
print $ranWord;