while ($_ = shift @letters) { $word .= $_; }