$return.=$word.shift @words;
# oder
$return .= $word . shift(@words);