my $word = join('', @letters);
and
my $word = reverse(reverse(@letters));
and
my $word = do { local $"=''; "@letters" };
and
my $word; map { $word .= $_ } @letters;

ok, so the last one is pretty much the same as:
my $word; $word .= $_ foreach (@letters);